Danke
habe jetzt die printanweisung :
Print Stunde ; ":" ; Minute ; ":" ; Sekunde ; ":" ; Wochentag

und oben in meiner do loop schleife:
Taste = Tastenabfrage()
If Taste <> 0 Then

Select Case Taste
Case 1
Call Plussekunde
Case 2
Call Plusminute
Case 3
Call Plusstunde
Case 4
Call Clockstart

End Select
Sound Portd.7 , 400 , 500 'BEEP
End If
Waitms 100

If Sekunde = 60 Then
Sekunde = 0
Minute = Minute + 1
Else
End If

If Minute = 60 Then
Minute = 0
Stunde = Stunde + 1
Else
End If

If Stunde = 24 Then
Stunde = 0
Tag = Tag + 1
End If

select case tag
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"
End Select

jetzt habe ich aber errors: 2x error 242 in den folgenden eilen:

Case 1 : Wochentag = "Montag"
Case 2 : Wochentag = "Dienstag"

und nochmal error 7 und 269 in der Case 2 : Wochentag = "Dienstag" eile.

K.a. wie ich die beseitiegen kann.