VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change