brauch mal eure hilfe
möchte das in D4 bis S4 eine Eingabe nur möglich ist, wenn in A4 etwas steht.
Wenn man den Inhalt in A4 löscht sollen die Inhalte von D4 bis S4 auch gelöscht werden.
vielen Dank im voraus
dirk
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 4 And [A4] = "" Then
If ActiveCell.Column > 3 And ActiveCell.Column < 20 Then
[A4].Select: MsgBox "A4 ist leer"
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Address = "$A$4" Then
If [A4] = "" Then Range("D4:S4").ClearContents
End If
End Sub