AW: wochentage finden
25.04.2007 17:14:00
Erich
Hallo Tom,
danke für deine Rückmeldung!
Leider war da noch ein Fehler drin (wenn das eingegebene Datum ein Montag ist).
Hier die korrigierte Version:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intT As Integer
If Target.Address = "$A$1" Then
If IsDate(Target) Then
If Weekday(Target, 2) > 1 Then intT = Weekday(Target, 3)
MsgBox Format(Target - intT, "DDD, DD.MM.YYYY") & vbLf _
& Format(Target + 5 - intT, "DDD, DD.MM.YYYY")
End If
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort