Intersect
04.01.2004 11:45:12
Franz W.
ich scheitere bei der Prüfung, ob die ActiveCell in einem bestimmten Bereich liegt:
Es gibt einen benannten Bereich namens "GebDaten", bestehend aus 2 Spalten: Geburtsdatum und Name. Mit folgendem Code möchte ich nun prüfen, ob die aktive Zelle innerhalb dieses Bereiches liegt oder nicht:
Sub Aufrufen_loeschen()
Dim strName As String, rngGeb As Range
strName = "GebDaten"
Set rngGeb = Range(strName)
If Not Intersect(ActiveCell, rngGeb) Then
MsgBox "no"
Else
MsgBox "ja"
End If
End Sub
- Ist eine Zelle außerhalb dieses Bereiches angewählt, kommt die Fehlermeldung: " Objektvariable oder With-Blockvariable nicht festgelegt. "
- Ist ein Geburtsdatum INNERHALB DES BEREICHES ausgewählt, kommt die MsgBox "no" !! Obwohl die Zelle INNERHALB des Bereiches liegt!!
- Ist ein Name im besagten Bereich gewählt, erscheint die Meldung: " Typen unverträglich. "
Ihr seht also, es stimmt überhaupt nix!! Und ich weiß nicht mehr weiter. Darum bitte ich um Eure Hilfe.
Vielen Dank schon mal im Voraus
Grüße
Franz
Anzeige