Liegt aktive Zelle in Bereich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Liegt aktive Zelle in Bereich
von: Horst
Geschrieben am: 13.07.2002 - 09:17:10

Hallo,

ich muss überprüfen, ob eine angewählte Zelle in einem bestimmten Bereich liegt.
Kann mir bitte jemand einen kleinen Tip geben wie das geht ?

Danke im Voraus
Horst


nach oben   nach unten

Re: Liegt aktive Zelle in Bereich
von: jinx
Geschrieben am: 13.07.2002 - 09:25:43

Moin, Horst,

so zum Beispiel:


' Ueberpruefung, ob der Zeiger in den Zellen A1, C1, A6 oder C6 steht
' Wenn dies nicht der Fall ist, wird das Makro beendet
    Set SMenge = Application.Intersect(Range("A1,C1,A6,C6"), Range(ActiveCell.Address))
    If SMenge Is Nothing Then
    MsgBox "Cursor in eine Zelle - entweder " & Chr(13) & _
    "A1, C1, A6 oder C6 - setzen!"
    Exit Sub
    End If

cu
jinx

nach oben   nach unten

Re: Liegt aktive Zelle in Bereich
von: Horst
Geschrieben am: 13.07.2002 - 09:53:23

Hallo jinx
vielen Dank für Deine Info.
aber wie kann ich einen gesammten Bereich definieren und überprüfen ? z.B. Spalte A10 bis A20 ?

Gruß Horst


nach oben   nach unten

Re: Liegt aktive Zelle in Bereich
von: jinx
Geschrieben am: 13.07.2002 - 10:31:29

Moin, Horst,

indem Du statt einzelner Zellen den Bereich ansprichst, für das Beispiel abgewandelt dann entsprechend
Set SMenge = Application.Intersect(Range("A10:A20"), Range(ActiveCell.Address))

cu
jinx

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Liegt aktive Zelle in Bereich"