VBA Code (kleines Problem)
22.11.2018 10:33:32
Angie
ich habe folgendes Problem.
Ich habe diesen Code generiert:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F32:I38,F40:I47")) Is Nothing Then Exit Sub
Cancel = True
Target = IIf(Target = "X", "", "X")
If Target = "X" And Target.Column = 8 Or Target.Column = 9 Then
MsgBox ("Bitte Bemerkung eintragen")
End If
End Sub
Es funktioniert auch aber folgendes Problem.
Wenn ich ein Doppelklick in der 8 Column mache kommt das Popup, was auch richtig sit.
Bei der 9. kommts auch, was auch richtig ist. Nur es kommt aber auch wenn ich in der 9. Column das x wegdrücke. Also beim wegdrücken soll der Pupup nicht mehr kommen.
Ansonsten funktioniert. Ich weiß aber nicht, wo das Problem liegt.
Wäre schön wenn jemand helfen kann.
Vielen Dank
Gruß
Angie