Beistehender Code von Erich funktioniert einwandfrei, nur wenn er in automatisch erstellten sheets im Rahmen einer Schleife öfter hintereinander durchlaufen wird um in den neuen Sheets jeweils die Datenreihe zwischen 2 Datumsangaben zu ermitteln, werden ab dem 2. sheet keine Datenreihen mehr angezeigt und beim 3. sheet kommt eine Fehlermeldung.
Sub Datumse()
Dim ss&, dd As Date
For dd = [A1] To [A2] Step 7
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
Next dd
' evtl. Endedatum extra
If dd - 7 < [A2] Then
dd = [A2]
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
End If
End Sub
Habt ihr eine Ahnung warum?
Danke!