Bei Klick in Zelle soll MsgBox erscheinen

[Beltason]

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...

Danke

[Flotter Feger]

Hallo,

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

[Beltason]

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

[Flotter Feger]

Hallo,

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

[Beltason]

Du bist die beste!!!! :18: 
Das wars... :18: :19: Danke!!!!!!!!!!!!!