Ich möchte sicherstellen, dass, wenn in Zelle B19 ein Jahreswert steht, erst dann die Eingabe eine Wertes in Zelle C29 erfolgen kann, wenn vorher in B29 mindestens ein Eintrag erfolgte (nämlich zwei Buchstaben für Kostenstellenname).
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
So etwa?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = "" Then Exit Sub
If Target.Address = "$C$29" Then
If TypeName(Cells(19, 2).Value) = "Date" Then
If Cells(29, 2).Value = "" Then
MsgBox ("Erst Zelle B29 ausfüllen")
Target.ClearContents
End If
End If
End If
End Sub
