mhh, ansonsten probier mal das:
Code:
Case 1 
Wochentag = "Montag" 
Case 2 
Wochentag = "Dienstag" 
Case 3 
Wochentag = "Mittwoch" 
Case 4 
Wochentag = "Donnerstag" 
Case 5 
Wochentag = "Freitag" 
Case 6 
Wochentag = "Samstag" 
Case 7 
Wochentag = "Sonntag" 
Case Else : tag= 1
End Select