Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Terminliste erstellen

Terminliste erstellen
09.04.2017 07:25:30
bille92
Hallo,
ich habe noch eine Frage zu diesem Thema:
Ich möchte mit VBA eine Terminliste erstellen.
Die Liste soll um 8:00 Uhr beginnen und um 16:30 Uhr enden.
Dim anfang as date, ende as Date, abstand as Date
anfang = "08:00"
ende = "16:30"
abstand = "00:30"
For x = anfang to ende step abstand
debug.print x
next x
Die Liste beginnt um 08:00, endet aber immer um 16:00 Uhr.
Es wäre nett, wenn mir jemand helfen könnte.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Terminliste erstellen
09.04.2017 07:28:22
Hajo_Zi

Option Explicit
Sub List()
Dim Anfang As Date
Dim Ende As Date
Dim X As Date
Anfang = "08:00"
Ende = "16:30"
For X = Anfang To Ende Step 0.5 / 24
Debug.Print X
Next X
End Sub

AW: Terminliste erstellen
09.04.2017 07:45:59
ChrisL
Hi
In Ergänzung zu Hajo ein kurzer Erklärungsversuch:
Excel wandelt Datumswerte zur Berechnung in Dezimalzahlen um. 1/2-Stunde entspricht 1/48 Tag.
1/48 = 0,02083333333333...
Da Excel nicht mit unendlich vielen Kommastellen rechnet, führt dies manchmal zu kleinen Rundungsfehlern:
https://support.microsoft.com/de-de/help/214118/how-to-correct-rounding-errors-in-floating-point-arithmetic
Für die Schleifen-Steps benötigst du aber noch nicht zwingend die Datumswerte. Würden nicht einfach 17 Steps, evtl. in Übereinstimmung mit den Tabellenzeilen reichen...
For i = 1 To 17
Nex i
cu
Chris
Anzeige
AW: Terminliste erstellen
13.04.2017 08:18:55
bille92
Hallo,
jetzt funktioniert es.
Vielen Dank an Euch und ein schönes Osterfest
Gruß
Bille

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige