Code funktioniert nur bedingt
Angelika
kann mir bitte jemand helfen
Dieser Code sollte
' bei Eingabe des Datums in der Spalte "O" oder "U" soll in spalte N bzw. T ein X erscheinen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O:O")) Is Nothing Then
Target.Offset(0, -1) = "X"
ElseIf Not Intersect(Target, Range("U:U")) Is Nothing Then
Target.Offset(0, -1) = "X"
End If
End Sub
wenn ich aber die entf. Taste drücke macht er ebenfalls ein X - das sollte nicht sein
wenn ich einfach ein Buchstabe eingebe macht er ebenfalls ein X- das sollt auch nicht sein.
Ich kann diesen Vorgang nicht per Formel machen- da in weiteren Bearbeitungsschritten die Zeilen
gelöscht werden und dann wäre die Formel auch weg.
Vielen Dank für eure HIlfe
angelika
Anzeige