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

Excel-Beispiele zum Thema "Anzahl Zeilen eines Bereichs"
Seitenanzahl eintragen	Funktion ANZAHL2 ohne ausgeblendete Spalten
Anzahl der über ParamArray festgelegten Parameter	Anzahl eines bestimmten Wochentages im Monat
Anzahl der einzufügenden Zeilen abfragen	Bestimmte Anzahl von Zeichen zulassen
Seitennummer und Seitenanzahl per VBA in Kopfzeile	Nur AJM in TextBox akzeptieren und Anzahl zählen
Anzahl von CheckBoxes in einer UserForm ermitteln	Anzahl der gelb hinterlegten Zellen ermitteln