(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
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

Beiträge aus den Excel-Beispielen zum Thema "(VBA): Zellmarkierung Nummer erste/letzte Zeile"