Fheler beim Kompilieren

Forumthread: Fheler beim Kompilieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Fheler beim Kompilieren

01.07.2005 10:40:47

Gregor

Hallo
Was ist hier falsch, ich erhalte eine Fehlermeldung?


Sub Werktage()
Dim Start
Start = InputBox(Prompt:="Geben Sie eine Zahl" & vbNewLine _
& "für einen Wochentag ein (Sonntag = 1)")
Range("A1").Value = Format(Weekday(Start), "dddd")
End Sub

Gruss Gregor

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fheler beim Kompilieren

01.07.2005 11:41:16

u_
Danke

01.07.2005 11:55:35

Gregor

AW: Fheler beim Kompilieren

01.07.2005 11:41:16

Hallo,
die Syntax ist i.O.
Du hast allerdings einen anderen Fehler drin. Das ganze klappt nur, weil der 1.1.1900 zufällig ein Sonntag war. Weekday() gibt den Wochentag eines Datums zurück. Weekday("1.7.2005") ergibt 6=Freitag. Richtigerweise muss es so aussehen:


Sub Werktage()
Dim Start
Start = InputBox("Geben Sie eine Zahl" & vbNewLine _
& "für einen Wochentag ein (Sonntag = 1)")
Range("A1") = Format(Start, "DDDD")
End Sub

Gruß
Geist ist geil!