MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 08.09.2017, 12:26   #1
Klaudia95
Neuer Benutzer
Neuer Benutzer
Standard VBA - Message Box soll aufpoppen egal auf welchem Sheet ich mich befinde

Hallo liebe Experten,

ich hoffe jemand von euch kann einer VBA Anfängerin bei folgendem Problem helfen:

ich habe eine MsgBox in Tabelle 12 geschrieben, die folgendermaßen aussieht:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static m1 As Boolean

If Not m1 And Cells(2, 5).Value > 100 And Cells(2, 5).Value < 200 Then
        m1 = True
        MsgBox "blablabla!", vbExclamation, "bla!"
   
End If
Die Messagebox poppt jedoch nur auf wenn ich mich auf Tabelleblatt 12 befinde, also da wo ich den Code im VBA-Fenster auch reingeschrieben habe.

Wie funktioniert das, dass eine Messagebox aufpoppt auch wenn ich mich grade auf z.B. Tabellenblatt 9 befinde?

Geändert von Klaudia95 (08.09.2017 um 12:29 Uhr).
Klaudia95 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 12:32   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

benutze die entsprechende Aktion unter DieseArbeitsmappe

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 12:40   #3
Klaudia95
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke für deine Antwort, aber es tut sich leider nichts.
Muss ich noch etwas ergänzen in meinem Code?
Klaudia95 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 12:50   #4
Hajo_Zi
MOF Guru
MOF Guru
Standard

Nein.

nur wenige schauen auf Deinen Rechner und sehen die Datei.

Ich möchte gerne den Fehler im Original sehen.


Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.


Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.


Der Dateiname sollte nicht Test…, Beispiel…, Mappe--- oder Muster… sein. Es sollte ein aussagekräftiger Name sein.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.


Die entsprechende Aktion wurde ja benutzt.

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 13:42   #5
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Mal im Ernst!
Du willst bei JEDER Änderung einer Zellauswahl eine MsgBox, wenn eine Bedingung erfüllt ist?
Ich würde Dir den Rechner vor die Füße knallen!

Wofür gibt es eigentlich eine benutzerdefinierte Datenüberprüfung?

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 14:16   #6
Klaudia95
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

@RPP63
die MsgBox kommt nur einmal nachdem die Mappe geöffnet wurde und ist ein Hinweis darauf, ein Makro zu betätigen. Kommt somit nach dem Betätigen des Makros nicht mehr.

@Hajo
Im Fenster "DieseArbeitsmappe" befindet sich nur der folgende Code. Dabei wurde nur der Inhalt der Message Box zensiert.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static m1 As Boolean, m2 As Boolean, m3 As Boolean, m4 As Boolean

 If Not m1 And Cells(2, 5).Value > 100 And Cells(2, 5).Value < 200 Then
        m1 = True
        MsgBox "Blabla1", vbExclamation, "Bla1"
    End If

If Not m2 And Cells(2, 5).Value > 200 Then
        m2 = True
        MsgBox "Blabla2", vbCritical, "Bla2"
    End If

 If Not m3 And Cells(2, 6).Value > 100 And Cells(2, 6).Value < 200 Then
        m3 = True
        MsgBox "Blabla3", vbExclamation, "Bla3"
    End If

 If Not m4 And Cells(2, 6).Value > 200 Then
        m4 = True
        MsgBox "Blabla4", vbCritical, "Bla4"
    End If

End Sub
- VBA-Fenster von allen Tabellen sind komplett leer
- Modulfenster mit einem Makro ist vorhanden, steht aber in keiner Verbindung mit meinem MessageBox Vorhaben.
Klaudia95 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 14:21   #7
Hajo_Zi
MOF Guru
MOF Guru
Standard

meinen Tipp wolltest Du also nicht umsetzen. Da kann ich Dir leider nicht helfen. Du benutzt eine Aktion die für die einzelne Tabelle vorgesehen ist.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)


Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.09.2017, 14:36   #8
RPP63neu
MOF Meister
MOF Meister
Standard

@Hajo:
Du solltest nach Möglichkeit mehr lesen als die Threadüberschrift.

@Klaudia:
Vielleicht solltest Du Dich zunächst mal in die absoluten Grundlagen von VBA einarbeiten!
Jedenfalls zeigt Dein #6, dass es Dir an so ziemlich allem fehlt.
Wenn ein Makro nur beim Öffnen der Datei laufen soll, gehört es ins Workbook_Open() in DieseArbeitsmappe.
Zusätzlich ist in diesem Fall eine Schleife über alle Worksheets notwendig.

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:26 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.