Feststellen, ob eine Zelle in einem bestimmten Excel-Zellbereich liegt

In vielen Makros wird auf die Position der aktiven Zelle reagiert. Aber wie stellen Sie fest, ob sich die aktive Zelle in einem bestimmten Zellbereich befindet? Es ist nicht nötig, diesen Umstand aufwendig mit IF-Kommandos abzufragen. Nutzen Sie einfach die Funktionen von VBA, um Schnittmengen zwischen Bereichen herzustellen. Das folgende Excel-Makro zeigt, wie das geht:

Sub IstZelleImBereich()
Dim Testbereich As Range
Set Testbereich = Range("b5:c60")
If Intersect(ActiveCell, Testbereich) Is Nothing Then
MsgBox "Die aktive Zelle befindet sich nicht im Bereich " & _
 Testbereich.Address(False, False)
Else
MsgBox "Die aktive Zelle befindet sich im Bereich " & _
 Testbereich.Address(False, False)
End If
End Sub

Um das Makro zu verwenden, klicken Sie zunächst eine Zelle an. Anschließend rufen Sie das Makro auf. Es prüft, ob die aktive Zelle sich im Zellbereich befindet, den Sie im Makro definiert haben. Wenn das nicht der Fall ist, zeigt Excel das mit einem Hinweisfenster an:

Wenn sich die aktive Zelle hingegen im festgelegten Zellbereich befindet, zeigt das Makro diesen Umstand ebenfalls mit einem Hinweisfenster an:

Welchen Zielbereich Sie im Makro auf eine Überschneidung testen möchten, legen Sie über die Variable TESTBEREICH fest.