Gruppe
Ereignis
Bereich
Change
Thema
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern
Problem
Wie kann ich Zelleingaben in einem vorgegebenen Bereich davon abhängig machen, ob sich in einer bestimmten Zelle ein Eintrag befindet?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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