Terminliste erstellen
25.03.2017 07:27:52
bille92
ich möchte Arbeitsblätter mit Terminlisten erstellen und habe folgenden Code:
Public Sub Test
Dim AB as Date 'Arbeitsbeginn
Dim AE as Date 'Arbeitsende
Dim ZA as Date 'Zeitabstand
Dim PA as Date 'Pause Anfang
AB = "08:00"
AE = "16:30"
ZA = "00:30"
PA = "12:00"
for i = AB to AE Step ZA
If i = PA Then
Debug.Print "Pause"
Else
Debug.Print i
End If
Next i
End Sub
Die Liste soll so aussehen:
08:00
08:30
09:00
09:30
10:00
10:30
11:00
11:30
Pause
12:30
usw
16:00
16:30
Sie sieht aber so aus:
08:00
08:30
09:00
09:30
10:00
10:30
11:00
11:30
12:00
12:30
usw
15:30
16:00
-Ändere ich den Arbeitsbeginn jedoch auf 11:30, wird statt 12:00 das Wort Pause eingetragen.
- Außerdem endet die Liste um 16:00 statt um 16:30 Uhr,
Was mache ich falsch? Ich würde mich sehr über eine Lösung freuen.