Herbers Excel-Forum - das Archiv
(VBA): Zellmarkierung Nummer erste/letzte Zeile
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