ich komme nicht weiter.
Es geht um Zeitformatierungen :(
ich zerbreche mir schon seid gestern den Kopf.
ich habe mir ein Makro geschrieben in dem ich in der Exceltabelle selbst Vorgabezeiten eingeben kann und dann in einer Userform Daten eingeben kann und diese mit den Vorgabezeiten abgeglichen wird.
Das Problem kommt aber wenn die Vorgabezeit mehr als 23 Stunden beträgt.z.b 25
Ich habe jetzt mal als Beispiel zur Erklärung 25 Stunden genommen.
Ich habe im makro diese zeile:
wert = " Vorgabe - (" & Format(newwb.Worksheets(Form_Daten_Eingabe.cbo_Regelkreise.Value).Cells(12, xx - 1), "hh:mm:ss") & ")"
Diese macht auch Ihren Job richtig.Aber wie gesagt nur bis 23 stunden.
Gebe ich in der Tabelle 23: ein erscheint in der Zelle sowie auch in der bearbeitungsleiste 23:00:00.
Und alles klappt wunderbar.
gebe ich 25: ein erscheint in der zelle 23:00:00 aber in der bearbeitungsleiste
01.01.1900 01:00:00
Bei 23:00:00 ist die Formatierung der Zelle Automatisch auf Uhrzeit bei 25:
ist das Format [h]:mm:ss;@
jetzt muss ich die 25:00:00 zum weiterrechnen in die userform eintragen.
habe gestern auch einen guten Tipp bekommen mit
wert = newwb.Worksheets(Form_Daten_Eingabe.cbo_Regelkreise.Value).Cells(12, xx - 1).Text
Statt so:
newwb.Worksheets(Form_Daten_Eingabe.cbo_Regelkreise.Value).Cells(12, xx - 1)
Hier in dieser zeile will ich die UIhrzeit in die erste Variable übernehmen die dann in ein array eingetragen wird.
wert = " Vorgabe - (" & Format(newwb.Worksheets(Form_Daten_Eingabe.cbo_Regel.Value).Cells(12, xx - 1), "hh:mm:ss") & ")"
Bei eingabe 23 Studen in die Zelle erscheint auch also ergebniss " Vorgabe - (23:00:00)"
aber bei Eingabe von 25 Stunden erscheint nicht wie ich es möchte " Vorgabe - (25:00:00)"
sondern " Vorgabe - (01:00:00)"
Irgendwo fehlt der Tag.:(
Könnt ihr mir weiterhelfen ?
vielen Dank im vorraus ich weiß es ist viel text.
Danke