Enddatum
22.03.2006 17:14:41
Heinz
Habe auf Herber CD unteres Makro gefunden.
Das nur die Tage von Montag bis Freitag anzeigt.
Nun möchte ich aber nicht so wie im Makro "datEnd = Range("H1").Value"
Sonndern das es automatisch ab A6 & B6 das Enddatum einträgt.
Anfangsdatum steht in M3. Zb.1.1.06 das es mir die Daten automatisch bis 31.1.06 einträgt.
Bei Februar eben bis 28.1.06 bzw.bei Schaltjahr 29.2.06 usw.
Könnte mir Bitte das Makro jemand abändern ?
Danke Heinz
Sub WochenendeWeg()
Dim datStart As Date, datEnd As Date
Dim lDay As Long
Dim iRow As Integer
datStart = Range("M3").Value
datEnd = Range("H1").Value
For lDay = datStart To datEnd
If WeekDay(lDay, 2) < 6 Then
iRow = iRow + 1
Cells(iRow, 1) = lDay
Cells(iRow, 2) = lDay
End If
Next lDay
End Sub