Office: Wochentag aus Datum berechnen mit VBA

Schnefarg · 29. Mai 2005

Guten Tag allerseits,

ich würde gern per Makro den passenden Wochentag zu einem eingegebenen Datum in ein Formularfeld schreiben lassen. Leider scheitere ich schon beim Herausfinden des Wochentages, da VBA den falschen zurückliefert.Wäre nett, wenn mir einer helfen könnte.

Hier noch der Code:
Code:

Public Function WOTAG()
Dim a As Date
a = ActiveDocument.FormFields("Dat1").Result
b = Weekday(b, vbUseSystemDayOfWeek)
b = WeekdayName(b, False, vbUseSystemDayOfWeek)
Debug.Print a
Debug.Print b
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das füllen des Formularfeldes soll dann nicht das problem sein. Es ist mit dem obigen Code derzeit so, dass er für das Datum 31.05.2005 den Wochentag Samstag ausspuckt.....
Das ist ja net ganz in Ordnung.

Danke schon mal für eure Hilfe

:)

Schnefarg · 31. Mai 2005

Code:

Public Function WOTAG()
Dim a As Date
a = ActiveDocument.FormFields("Dat1").Result
b = Weekday(a, vbUseSystemDayOfWeek)
b = WeekdayName(b, False, vbUseSystemDayOfWeek)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So funktionierts :-)

CHF · 31. Mai 2005

Hi,

liegt wohl am Tippfehler "b" in der 4.Zeile:

Code:

Public Function WOTAG()
Dim a As Date, b As Variant
a = ActiveDocument.FormFields("Dat1").Result
b = Weekday(a, vbUseSystemDayOfWeek)
b = WeekdayName(b, False, vbUseSystemDayOfWeek)
MsgBox b
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

code colored by my code converter *tongue.gif*

Office: Wochentag aus Datum berechnen mit VBA

Wochentag aus Datum berechnen mit VBA

Wochentag aus Datum berechnen mit VBA

Wochentag aus Datum berechnen mit VBA - Similar Threads - Wochentag Datum berechnen

betimmten Montag als Datum in Bericht anzeigen

Numerisches Datum Wochentagen zuordnen

Bestimmte Spalten farblich markieren wenn Datum bzw. ein Wochentag erfüllt

Feiertage ohne Wochenende zählen

Tabellenblatt mit Datum und Wochentag

Datum()-1 soll nur Wochentage ausgeben

bei Umstellung der Woche automatisch Datum unter dem Wochentag anzeigen lassen