variable Uhrzeiten vergleichen
05.05.2004 16:09:31
Ingo
ich habe in einem Kalender (Dateiblatt) Öffnungszeiten incl. Mittagspausen hinterlegt (je Zeile ein Datum/ Spalte B: Öffnungszeitbeginn/ Spalte C: Ö-Ende/ D:Pausenbeginn/ F:Pausenende)
Die Auswahl der jeweiligen Eingabemöglichkeiten ist durch eine im Dateiblatt hinterlegte Liste (Gültigkeitsprüfung) eingeschränkt.Gleichzeitig "rastert" mir diese hinterlegte Liste den Tag in kleinere Zeiteinheiten (von bis).
Nun möchte ich diese Informationen in einem anderen Datenblatt im Kopf einer Erfassungsmaske farbig hinterlegen.
Hierzu kopiere ich die hinterlegte Liste mit den Uhrzeiten und transponiere sie (Kopieren von Werten und Formaten)in ein anderes Datenblatt.
Um die für die jeweils ausgewählte Kalenderwoche die passenden im Kalender hinterlegten Öffnungszeiten zu markieren, vergleiche ich die im Kalender hinterlegten Anfangs- und Endzeiten mit den im neuen Datenblatt vorhandenen "Kopfdaten".
Leider gelingt dies nur unvollkommen, da z.B. 10:00 im Kalender nicht identisch ist mit 10:00 Uhr im Tabellenkopf. Ein Abgleich in VBA mit IF Abfrage liefert keine Deckungsgleichheit:
Dim PBeg, ZDaten as integer
PBeg = Worksheets("Kalender").Cells(ZDaten, 10).Value
If PBeg = Activecell.value Then
SP4 = ActiveCell.Column
End If
Alle von mir unternommenen Versuche (Anpassung von Formatierung, Umrechnung in Dezimalzahlen durch die Multiplikation mit 24, Anpassen der Variablen die ich zur Abfrage und Vergleich nutze) führen bisher zu keinem Ergebnis. Ich bin kurz vor dem Verzweifeln.
Hat noch jemand einen Tipp, wie ein solcher Vergleich absolut narrensicher (das Zeitraster und die Öffnungszeiten können verändert werden)funktioniert??
Die gesamte Anwendung ist noch komplexer. Bei Bedarf stelle ich gerne den Code zur Verfügung.
Danke