AW: Arbeitstage in Kalendertage einordnen
24.08.2003 16:59:51
PeterW
Hallo Ralf,
ich gehe davon aus, dass die Daten in Spalte A stehen. Öffne mit ALT+F11 den VBA-Editor. Im Projektfenster Rechtsklick auf deine Datei, Einfügen, Modul. In das sich öffnende Fenster folgenden Code kopieren:
Sub AlleTage()
Dim lgCount As Long
'A2 überprüfen ob Datum der 1.1.2003 ist
'ggf. in der nächsten Codezeile anpassen!!
If Cells(2, 1) <> CDate("1.1.3") Then
'wenn nicht Zeile einfügen und Startdatum 1.1.2003 setzen
Rows(2).Insert
'und das Startdatum eintragen
'und auch hier ggf. anpassen
Cells(2, 1) = CDate("1.1.3")
End If
'Zeilenzähler
lgCount = 3
'arbeite bis eine leere Zelle in Spalte A gefunden wird
Do Until IsEmpty(Cells(lgCount, 1))
'wenn in der nächsten Zeile nicht das nächste Datum steht
If Cells(lgCount, 1) <> Cells(lgCount - 1, 1) + 1 Then
'dann füge eine Zeile ein
Rows(lgCount).Insert
'und schreibe das nächste Datum
Cells(lgCount, 1) = Cells(lgCount - 1, 1) + 1
End If
'Zeilenzähler erhöhen
lgCount = lgCount + 1
Loop
End Sub
Gruß
Peter