VBA doppeldter Code Popup
20.11.2018 15:24:29
Mecon
Ich habe in meinem Code einen Code mit:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("E24:H30,E32:H38, E40:H42, E44:H45,E47:H49,E51:H52,E54:H57,E59:H64, _
_
E66:H68,E70:H72,E74:H76")) Is Nothing Then Exit Sub
Target = IIf(Target = "X", "", "X")
Cancel = True
End Sub
sprich, wenn ich doppelklick mach. kommt da ein x.
Aber jetzt will ich hinzu, wenn da ein X ist, soll ein Popup erscheinen.
Hab folgenden Code reingeschrieben
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H32:I125")) Is Nothing Then
If Target.Value = x Then
MsgBox "Warnung!"
End If
End If
End Sub
Aber leider kommt der Popup erst dann, wenn ich doppelklick mach um den x verschwinden zu lassen.
kann mir da jemand helfen?