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"