Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bei Klick in Zelle soll MsgBox erscheinen
#1
Hallo Leute,

ich habe eine msgbox erstellt die bei klick in eine bestimmte Zelle sich öffnet. Funktioniert einwandfrei!!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Address(0, 0) <> "I38" Then Exit Sub
    Cancel = True
    MsgBox "Eingegebenen Wert in Tabelle Jan eintragen!!", vbOKOnly, "NICHT VERGESSEN!"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) <> "I38" Then Exit Sub
    MsgBox "Eingegebenen Wert in Tabelle Jan eintragen!!", vbOKOnly, "NICHT VERGESSEN!"
End Sub

Aber leider nur in der Zelle I38! Ich möchte gerne, das auch die Zellen darunter, also I39, I40 und I41 darauf reagieren. Egal was ich versuche, es klappt nicht. Kann da jemand helfen... Dodgy

Danke
Antworten Top
#2
Hallo,

If Not Intersect(Target, Range("I38:I40")) Is Nothing Then Exit Sub
VG Sabina

bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Antworten Top
#3
Hallo, danke für die schnelle Antwort und Hilfe. Nur klappt das nicht so richtig. Es reagieren jetzt auch daneben stehende Zellen und alle in der Spalte i. Ich habe deinen code so eingebaut:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("I38:I40")) Is Nothing Then Exit Sub
    Cancel = True
    MsgBox "Eingegebenen Wert in Tabelle Jan eintragen!!", vbOKOnly, "NICHT VERGESSEN!"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("I38:I40")) Is Nothing Then Exit Sub
    MsgBox "Eingegebenen Wert in Tabelle Jan eintragen!!", vbOKOnly, "NICHT VERGESSEN!"
End Sub
Antworten Top
#4
Hallo,

dann lass das NOT einfach weg ... hab ich dich wohl falsch verstanden. Blush
VG Sabina

bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Antworten Top
#5
Du bist die beste!!!! :18: 
Das wars... :18: :19: Danke!!!!!!!!!!!!!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste