Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.07.2024 16:00:57
15.07.2024 15:41:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA + Uhrzeit zwischen zwei Werten

VBA + Uhrzeit zwischen zwei Werten
Peter
Hallo zusammen,
ich habe ein Problem mit der Uhrzeit in VBA:
In Zeile 1 ist das Datum,
in Zeile 2 sind die Stunden.
Es soll nun ein Eintrag erfolgen, wenn Schicht_Datum gefunden, und Uhrzeit liegt zwischen Schicht_Beginn und Schicht_Ende.
Problem1: Uhrzeit 24.00 Uhr ist "00:00"
Problem2: die Bedingung funktioniert nicht
Vielen Dank für Eure Hilfe.
Sub Neu()
Dim l%, sSpalte%, Nummer%, Schicht_Datum As Date, Schicht_Beginn As Date
Dim Schicht_Ende As Date, Kürzel$, Name$
With Worksheets(Tabelle_plan)
l = .Cells(Rows.Count, 2).End(xlUp).Row
' Plan durchsuchen
For l = 5 To l
' Wenn Nummer gefunden
If .Range("B" & l).Value = Nummer Then
For sSpalte = 6 To 149
' Wenn Schicht_Datum gefunden, und Uhrzeit liegt zwischen Schicht_Beginn  _
und Schicht_Ende
'###### Problemstelle #######
If CDate(.Cells(1, sSpalte)) = Schicht_Datum _
And Schicht_Beginn 

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA + Uhrzeit zwischen zwei Werten
04.05.2011 08:18:30
fcs
Hallo Peter,
so sollte es funktionieren
                    If CDate(.Cells(1, sSpalte)) = Schicht_Datum _
And Schicht_Beginn 

Die "06:00" für das Ende der Nachtschicht muss du ggf. anpassen.
Gruß
Franz
AW: VBA + Uhrzeit zwischen zwei Werten
04.05.2011 22:51:49
Peter
Hallo Franz,
habe es mit Deiner Hilfe hinbekommen. Konnte leider nicht früher testen.
Gruß Peter
Anzeige

360 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige