Herbers Excel-Forum - das Archiv

(VBA): Zellmarkierung Nummer erste/letzte Zeile

Bild

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
Bild

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
Bild

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 !
Bild

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
Bild

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
 Bild
Excel-Beispiele zum Thema "(VBA): Zellmarkierung Nummer erste/letzte Zeile"
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen Laufende Rechnungsnummer
Nummer aus zweiter Datei abrufen Rechnungsnummer aus sequentieller Datei übernehmen
Seitennummer und Seitenanzahl per VBA in Kopfzeile Nummern vorgeben und drucken
Telefonnummern nach Vorwahl und Anschluß aufteilen Eingabe der Artikelnummer und Rabattberechnung
IP-Nummern nach Gruppen sortieren Festplatten-Seriennummer auslesen