Herbers Excel-Forum - das Archiv
Anzahl Zeilen eines Bereichs
Betrifft: Anzahl Zeilen eines Bereichs
von: Frank
Geschrieben am: 02.03.2005 09:29:30
Hallo,
ich möchte eine Zeile so oft kopieren wie ein Bereich (Name) Zeilen hat. Für die For-Next-Schleife brauche ich also die Anzahl der Zeilen im Bereich XY.
Kann mir jemand sagen, wie ich das machen kann?
Ganz herzlichen Dank für die Hilfe.
Gruss
Frank
Betrifft: AW: Anzahl Zeilen eines Bereichs
von: Holger Levetzow
Geschrieben am: 02.03.2005 09:46:29
Hallo Frank,
nimm:
Application.Goto Reference:="Name"
anzahl = Selection.Count
Holger
Betrifft: AW: Anzahl Zeilen eines Bereichs
von: Franz
Geschrieben am: 02.03.2005 09:47:40
Versuchs mal mit
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Die 1 gibt die Spalte an. der Rückgabewert ist ein Integer
Betrifft: AW: Anzahl Zeilen eines Bereichs
von: UweD
Geschrieben am: 02.03.2005 09:51:28
Hallo Frank
so z.B.
Sub zähleZeilen()
Dim Z1%, Z2%, ZL%, Namex
'Beispiel
Namex = "B10:C12"
Z1 = Range(Namex).Row 'erste Zeile des ausgewählen Bereichs
Z2 = Range(Namex).Rows.Count 'Anzahl Zeilen aus Bereich
ZL = Z1 + Z2 - 1 ' Letzte Zeile des Bereichs
End Sub
Gruß UweD