Excel – VBA – Liegt eine Zelle in einem Bereich?

Die folgende Funktion löst die Frage, ob die in Zelle angegebene Zelle in einem Bereich liegt. Falls ja, resultiert WAHR (True), ansonsten FALSCH (False).

Function Schnitt(Zelle As Range, Bereich As Range) As Boolean
Schnitt = False
If Not Intersect(Zelle, Bereich) Is Nothing Then Schnitt = True
End Function

Die Funktion kann in einer Datei im VBA-Editor erstellt werden. Allerdings muss die Datei dann im Format xls (alt) oder xlsm (neu) gesichert werden.

Die Funktion kann dann auch innerhalb der bedingten Formatierung genutzt werden.

458b

Hier befindet sich die Datei mit Endung XLSM in einer ZIP-Datei.

Excel 458 Bedingte Formatierung

Hier ist das Video:

Videolink: http://youtu.be/o8aZFrVKXRE