Mit Hilfe der Intersect-Funktion
kann man überprüfen,
ob sich eine bestimmte Zelle innerhalb eines bestimmten
Bereiches befindet:
Vergeben Sie für dieses Beispiel einem Bereich den Namen "MeinBereich"
'entweder im Worksheet_Change Ereignis
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Set Bereich = Range("MeinBereich")
If Intersect(Target, Bereich) Is Nothing Then
MsgBox "Außerhalb des Bereiches !"
Exit Sub
End If
End Sub
'oder innerhalb eines Modules
Sub Bereich_Prüfen()
Dim Bereich As Range
Set Bereich = Range("MeinBereich")
If Intersect(Range(ActiveCell.Address), Bereich) Is Nothing Then
MsgBox "Außerhalb des Bereiches !"
Exit Sub
End If
End Sub
|
