Herbers Excel-Forum - das Archiv

Anzahl Zeilen eines Bereichs

Bild

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
Bild

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
Bild

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
Bild

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
 Bild
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