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