wie kann ich folgendes Problem lösen.
Wenn Zelle A leer ist oder wenn ich den Inhalt von Zelle A lösche soll Zelle B auch Automatisch leer gemacht werden?
Danke und Gruß
Hannox
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target = "" Then Range("B1").ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim bereich1 As Range
Set bereich1 = Range("A:A")
If Not Intersect(Target, bereich1) Is Nothing Then
If Target.Value = "" Then Target.Offset(0, 1).ClearContents
Else: End If
End Sub