Das Archiv des Excel-Forums
Selektierte Zelle in Bereich?
- Selektierte Zelle in Bereich? von Franz W. vom 27.09.2003 16:50:54
- AW: Selektierte Zelle in Bereich? - von PeterW am 27.09.2003 16:53:27
- AW: Selektierte Zelle in Bereich? - von heinz am 27.09.2003 17:36:44
- Ach ja! Intersect... - von Franz W. am 27.09.2003 17:45:18
- thx2 ot - von heinz am 27.09.2003 18:19:09
- thx2 ot - von heinz am 27.09.2003 18:19:09
- AW: Selektierte Zelle in Bereich? - von PeterW am 27.09.2003 16:53:27
 |
Betrifft: Selektierte Zelle in Bereich?
von: Franz W.
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
| |
