Das Archiv des Excel-Forums
Selektierte Zelle in Bereich?
Betrifft: Selektierte Zelle in Bereich?
von: Franz W.
Geschrieben am: 27.09.2003 16:50:54
Hallo Fachleute,
ich möchte prüfen, ob eine ausgewählte Zelle innerhalb eines benannten Bereiches liegt, der Bereich hat den Namen "TxtBst". Wenn nicht, Exit Sub. Mein Versuch bisher:
Sub Test()
Dim markZelle As String
markZelle = ActiveCell.Address
Range("TxtBst").Select
if not markZElle in selection then exit sub
End Sub
KÖnnt Ihr mir bitte helfen, wie die letzte Zeile im Code richtig heißen muss?
Vielen Dank schon mal und Grüße
Franz
Betrifft: AW: Selektierte Zelle in Bereich?
von: PeterW
Geschrieben am: 27.09.2003 16:53:27
Hallo Franz,
schau dir in der Hilfe mal Intersect an.
Gruß
Peter
Betrifft: AW: Selektierte Zelle in Bereich?
von: heinz
Geschrieben am: 27.09.2003 17:36:44
mit deinem ansatz kanns so aussehen
Sub test()
Dim markZelle As String
markZelle = ActiveCell.Address(False, False)
Dim vergleich As Variant
Set vergleich = Application.Intersect(Range("TxtBst"), Range(markZelle))
If vergleich Is Nothing Then Exit Sub
End Sub
Betrifft: Ach ja! Intersect...
von: Franz W.
Geschrieben am: 27.09.2003 17:45:18
Hallo Peter, hallo Heinz,
da hätt ich so langsam auch mal selber drauf kommen können *schäm*. Zumal ich das woanders auch schon mal eingesetzt habe...
Vielen Dank Euch beiden und Grüße
Franz
Betrifft: thx2 ot
von: heinz
Geschrieben am: 27.09.2003 18:19:09
Excel-Beispiele zum Thema " Selektierte Zelle in Bereich?"