Schleife For i = 2 to ?
Jonas
versuche gerade meine erste Schleife zu programmieren (s.u.). Eigentlich funktioniert sie super. Das einzige Problem ist mit "For i = 1 To 10". Habe schon gesucht. Die 10 muss eine Variable sein, sprich bis zur letzten gefüllten Zeile, soll der Befehl ausgeführt werden.
Jegliche Versuche mit z. B. ".end(xlUp)" sind gescheitert...
If opt_Gesamt = True Then
Dim i As Integer
For i = 1 To 10
Sheets("Filialen").Cells(i, 1).Copy
Sheets("TE").Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("TE").PrintOut Copies:=txt_Anzahl2
Next i
End If
Vielen Dank für die Hilfe
Jonas