VBA-Programmierung in Microsoft Excel

Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern

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