Anzahl Zeilen eines Bereichs

• Anzahl Zeilen eines Bereichs von Frank vom 02.03.2005 09:29:30
• AW: Anzahl Zeilen eines Bereichs - von Holger Levetzow am 02.03.2005 09:46:29
• AW: Anzahl Zeilen eines Bereichs - von Franz am 02.03.2005 09:47:40
• AW: Anzahl Zeilen eines Bereichs - von UweD am 02.03.2005 09:51:28

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

Beiträge aus den Excel-Beispielen zum Thema "Anzahl Zeilen eines Bereichs"