Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Terminliste erstellen

Forumthread: 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.
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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