Datum des nächsten "Mittwoch" mit Target.Offset

Question

Hallo,

über

    Target.Offset(0, 2).Value = Date

trage ich das heutige Datum ein. Wie muss der code aussehen, wenn ich das Datum des nächsten Mittwoch eintragen möchte?

Vielen Dank und Grüße

Thomas

Answer 1

Hallo Thomas,

ich kann es dir nicht als VBA Code nennen, aber die Formel könnte so aussehen:

=(REST((4-WOCHENTAG(A1));7)+A1)

Vielleicht hilft dir das auch für den VBA-Code.

Gruß computerschrat

Answer 2

Hallo und vielen Dank!

Das hilft mir adhoc zumindest weiter.

Hätte noch jemand die VBA Lösung für mich?

Vielen DAnk!

Thomas

Answer 3

Hallo Thomas,

an einem Monatag oder Dienstag wird der Mittwoch der selben Woche ausgewählt, ab Mittwoch der Mittwoch der folgenden Woche:

If Weekday(Date, vbUseSystemDayOfWeek) > 2 Then
    Target.Offset(0, 2).Value = Date + 10 - Weekday(Date, vbUseSystemDayOfWeek)
Else
    Target.Offset(0, 2).Value = Date + 3 - Weekday(Date, vbUseSystemDayOfWeek)
End If

Gruß

M.O.
 

Answer 4

Hi Thomas,

    If Application.Weekday(Date, 2) <> 3 Then
        Target.Offset(0, 1) = Date + 7 - Application.Weekday(Date, 2) + 3
    Else
        Target.Offset(0, 1) = Date + 7
    End If

Bis später, Karin