Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilennummer innerhalb markierter Range ermitteln

Zeilennummer innerhalb markierter Range ermitteln
31.08.2004 13:54:50
Heinz
Hallo,
ich würde gerne die erste und letzte Zeilennummer eines markierten
Bereiches ermitteln. Selection.Address gibt mir den Bereich in
Form eines Range-Objektes zurück; damit kann ich nichts anfangen,
ich brauche einfach nur die Zeilennummer in Form einer Zahl.
Kann mir da jemand helfen ?
Vielen Dank,
Heinz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilennummer innerhalb markierter Range ermitteln
Bert
msgbox selection.column
Ergibt die erste Spalte der Selektion.
Bert
AW:!!!!Zeile!!!!nnummer !!!!!!! ot
zeile
-
msgbox selection.Row
Bert
oT
AW: Zeilennummer innerhalb markierter Range ermitteln
ypsilon
hi Heinz,

Sub test()
strAdresse = Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False)
FirstRow = Range(Selection.Address).Row
LastRow = Range(Selection.Address).Row + Selection.Rows.count - 1
FirstColumn = Range(Selection.Address).Column
LastColumn = Range(Selection.Address).Column + Selection.Columns.count - 1
End Sub

cu Micha
AW: Zeilennummer innerhalb markierter Range ermitteln
WernerB.
Hallo Heinz,
wie gefällt Dir das?

Sub Heinz()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long
Dim sl As Integer, sr As Integer
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
sl = Range(lo).Column                                   'Spalte links
sr = Range(ru).Column                                   'Spalte rechts
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Zeilennummer innerhalb markierter Range ermitteln
31.08.2004 15:02:35
Heinz
Excellent !
Vielen Dank !!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige