Hallo zusammen!
Ich brings net zam!
Z1 is fix, z50 kann z3 aber auch z155 sein For Each rng In Worksheets("Auswahl").Range("z1:z50") Sheets(rng.Value).copy next rng
wie soll der Code ausschauen
Danke Lorenz
Hallo Lorenz,
bring doch mal was Variable(s) in Spiel Bereichsende=59 'oder alternativ wenn der Wert in der Zelle A1 auf dem Blatt Auswahl steht 'Bereichsende=Thisworkbook.sheets("Auswahl").Range("A1").value
If Bereichsende<=0 or Bereichsende<>Int(Bereichsende) then Msgbox "Bereichsende muss eine ganze Zahl größer Null sein!" Exit sub end if
For Each rng In Worksheets("Auswahl").Range("z1:z" & Bereichsende)
. . . Gruß Björn
AW: Variable Zeilenanzahl
Lorenz
Hallo Björn!
Habs probiert, umgesetzt und...... es klappt.
PS: Habe zur "Bereichsende" Ermittlung die xlFunktion "Anzahl2()" benützt
Danke vielmals
Lorenz