Ich hätte gerne wenn ich in Zelle A1 "OK" oder "U" oder "BSO" eingebe das der Wert in Zelle B1 entfernt wird.Bei andern Eingaben in Zelle A1 soll der Wert in B1 bestehen bleiben.
Vielen Dank im voraus.
Gruss
Gerry
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Me.Range("A1") And (Target.Value = "OK" Or Target.Value = "U" Or Target.Value = "BSO") Then
Me.Range("B1").ClearContents
End If
End Sub
Muss dementsprechend im VBA-Code des Worksheets eingebracht werden.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Select Case Target.Value
Case "OK", "U", "BSO": Range("B1").ClearContents
End Select
End If
End Sub
Gruß Werner
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
With Application
If IsNumeric(.Match(Target.Value, Array("OK", "U", "BSG"), 0)) Then
.EnableEvents = False
Range("B1").ClearContents
.EnableEvents = True
End If
End With
End If
End Sub
Gruß Gerd