Word VBA - Datumsberechnung

Mr_Tom · 18.11.2008

Hallo Wintotalgemeinde!

Ich habe folgendes Problem, eine UserForm mit einem Textfeld. Dieses Textfeld soll standardmäßig mit
dem Datum des nächsten Samstags gefüllt werden. Ich habe es schon mit DateAdd und DateDiff versucht,
bekomme aber kein ordentliches Ergebnis. Als Beispiel: Der Bezug Now = 18.11.2008 ist Wochentag 2, den bekomme
ich nicht hin. Wer kann mir helfen?

Vielen Dank

Lisa4 · 18.11.2008

so z.B.:

Code:

Private Sub TextBox1_Enter()
Dim Heute
Heute = Now()
TagebisSamstag = 7 - weekday(Heute)
Enddatum = Format(DateAdd(d, TagebisSamstag, Now()), dddd, d. MMMM yyyy)
UserForm1.TextBox1.Value = Enddatum
End Sub

Gruß Lisa

Mr_Tom · 18.11.2008

Danke Lisa,

die Funktion Weekday hatte mir gefehlt. Damit kann ich arbeiten.

Word VBA - Datumsberechnung

Mr_Tom

Lisa4

Mr_Tom

Word VBA - Datumsberechnung

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums