Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern

Gruppe

Change

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