Siehe hierzu gg. auch das Makro Nummer 1229/00 von Hr. Herbers. Meine darauf aufbauende Modifikation (siehe unten) funktioniert aber leider nicht. Makro wird ignoriert. DANKE an Euch im voraus.!!!!
Private Sub Worksheet_RealisationCosts(ByVal Target As Range)
If Intersect(Target, Range("B29:B36")) Is Nothing Then Exit Sub
If Target.Address = "$B$19" Or Target.Address = "$B$29" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsEmpty(Range("B19")) And IsEmpty(Range("B29")) Then
MsgBox "Zuerst mindestens Zelle B29 ausfüllen!"
Target.ClearContents
End If
End Sub