Gruppe
Ereignis
Problem
Wie kann ich Zelleingaben in einem vorgegebenen Bereich davon abhängig machen, ob sich in einer bestimmten Zelle ein Eintrag befindet?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A15:T60")) Is Nothing Then Exit Sub
If Target.Address = "$C$15" Or Target.Address = _
"$T$15" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsEmpty(Range("C15")) And IsEmpty(Range("T15")) Then
MsgBox "Zuerst Zelle T15 ausfüllen!"
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.ClearContents
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub