AW: Datum automatisch raufzählen und eintragen
30.08.2005 11:26:23
Stephan
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!
Anzeige