(VBA): Zellmarkierung Nummer erste/letzte Zeile

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

(VBA): Zellmarkierung Nummer erste/letzte Zeile von Dieter vom 21.02.2005 11:03:47

AW: (VBA): Zellmarkierung Nummer erste/letzte Zeile - von Mac4 am 21.02.2005 11:11:09
AW: (VBA): Zellmarkierung Nummer erste/letzte Zeile - von WernerB. am 21.02.2005 11:11:28
AW: (VBA): Zellmarkierung Nummer erste/letzte Zeile - von bst am 21.02.2005 11:13:01
Dankeschön! - von Dieter am 21.02.2005 11:24:53

Betrifft: (VBA): Zellmarkierung Nummer erste/letzte Zeile
von: Dieter
Geschrieben am: 21.02.2005 11:03:47
Hallo!
Ich trete im Moment bei einem kleinen Problem auf der Stelle:
In einer Tabelle wird ein bestimmter Bereich vom Anwender markiert. Bei der folgenden Verarbeitung durch ein Makro brauche ich nun die erste und die letzte Zeilennummer der Markierung, sozusagen ein lower/upper-Value von ActiveSheet.Selection.
Wie komme ich möglichst einfach an diese Werte heran?
Grüsse,
Dieter

Betrifft: AW: (VBA): Zellmarkierung Nummer erste/letzte Zeile
von: Mac4
Geschrieben am: 21.02.2005 11:11:09
Hallo Dieter,


Sub test()
MsgBox Selection.Row 'erste Zeile
MsgBox Selection.Rows.Count + Selection.Row - 1  'letzte Zeile
End Sub

Marc

Betrifft: AW: (VBA): Zellmarkierung Nummer erste/letzte Zeile
von: WernerB.
Geschrieben am: 21.02.2005 11:11:28
Hallo X,
wie gefällt Dir das?


Sub Dieter()
Dim Bereich As String, lo As String, ru As String, _
    zo As Long, zu As Long
    Bereich = Selection.Address(False, False)
    lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
    ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
    zo = Range(lo).Row                                      'Zeile oben
    zu = Range(ru).Row                                      'Zeile unten
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Betrifft: AW: (VBA): Zellmarkierung Nummer erste/letzte Zeile
von: bst
Geschrieben am: 21.02.2005 11:13:01
Hallo Dieter,
Oft ist es einfacher "For each r in Selection" zu benutzen.
Ansonsten, kopiert aus dem Direktfenster:
?selection.address
$D$18:$G$23
?selection.row
18
?selection.column
4
?selection.rows.count
6
?selection.columns.count
4
HTH, Bernd

Betrifft: Dankeschön!
von: Dieter
Geschrieben am: 21.02.2005 11:24:53
Danke Euch allen - jetzt klappts nicht nur, sondern ich hab auch noch was dabei gelernt. :D
Grüsse,
Dieter