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