Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Terminliste erstellen

Forumthread: Terminliste erstellen

Terminliste erstellen
25.03.2017 07:27:52
bille92
Hallo,
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.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Terminliste erstellen
25.03.2017 07:40:13
Hajo_Zi
Dim I As Date
man sollte alle Variablen definieren und in erster Zeile Option Explicit

das alleine hilft aber nicht! owT
25.03.2017 11:59:32
Matthias
AW: Terminliste erstellen
25.03.2017 18:59:53
bille92
Hallo,
vielen Dank für die Rückmeldung, aber das funktioniert auch nicht.
Gruß
Bille
Anzeige
If CCur(i) = CCur(PA) Then ...
25.03.2017 11:57:42
Matthias
Hallo
 If CCur(i) = CCur(PA) Then Debug.Print "Pause"
Gruß Matthias
AW: If CCur(i) = CCur(PA) Then ...
25.03.2017 19:02:41
bille92
Hallo,
der Vorschlag von Matthias L funzt.
Vielen Dank und ein schönes Wochenende
Gruß Bille
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige