40 Aufrufe
Gefragt in Tabellenkalkulation von jonesm Mitglied (177 Punkte)

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

4 Antworten

0 Punkte
Beantwortet von computerschrat Profi (20.7k Punkte)
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
0 Punkte
Beantwortet von jonesm Mitglied (177 Punkte)
Hallo und vielen Dank!

Das hilft mir adhoc zumindest weiter.

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

Vielen DAnk!

Thomas
0 Punkte
Beantwortet von m-o Profi (13.9k Punkte)

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.
 

0 Punkte
Beantwortet von beverly_ Mitglied (157 Punkte)

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

...