Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeitformat in dezimalformat und umgekehrt

Forumthread: zeitformat in dezimalformat und umgekehrt

zeitformat in dezimalformat und umgekehrt
02.06.2007 21:07:00
tom

hallo,
habe probleme bei der umwandlung per vba von zeitformaten in dezimalformate.
ich wäre sehr dankbar für nen kleinen tip.
beispiel:
beginn und xtime sind als date formatiert
"sub zeit
a = "5:30"
Dim beginn As Date
beginn = Format(a, "hh:mm")
x = "06:00"
Dim xtime As Date
xtime = Format(x, "hh:mm")
If beginn < xtime Then
plus = Format(xtime - beginn, "hh:mm")
MsgBox plus
End If"
das ergebnis "plus" möchte ich nun per vba in eine dezimalzahl und
nach verschiedenen berechnungen wieder in das zeitformat umwandeln.
vielen dank schon mal - tom

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeitformat in dezimalformat und umgekehrt
02.06.2007 21:31:00
Josef
Hallo Tom,
bei "VBA gut" solltest du dich mit den verschiedenen Datentypen aber schon auskennen.
Sub zeit()
Dim start As String, ende As String
Dim beginn As Date, xtime As Date, plus As Variant

start = "5:30" 'String
ende = "06:00" 'String

beginn = CDate(start) 'Datum/Zeit
xtime = CDate(ende) 'Datum/Zeit



If beginn < xtime Then
    plus = xtime - beginn 'Datum/Zeit
    MsgBox Format(plus, "hh:mm") 'String
End If

plus = CDbl(plus) 'Dezimal

MsgBox plus

plus = CDate(plus) 'Datum/Zeit

MsgBox plus

End Sub

Gruß Sepp

Anzeige
AW: zeitformat in dezimalformat und umgekehrt
02.06.2007 21:51:00
tom
vielen dank sepp, ps: vba mittel gibts nicht
gruß - tom

AW: zeitformat in dezimalformat und umgekehrt
02.06.2007 21:37:00
Matthias
Hallo Tom,
wenn beginn ald Date deklariert ist, wieso dann die Zeile:
beginn = Format(a, "hh:mm") ?
Es kommt zwar kein Fehler, aber Format ist doch für Strings gedacht.

Function ToDezimal(t As Date) As Double
ToDezimal = CDbl(t) * 24
End Function
Function ToDate(d As Double) As Date
ToDate = CDate(d / 24)
End Function


Gruß Matthias

Anzeige
AW: zeitformat in dezimalformat und umgekehrt
02.06.2007 22:03:35
tom
hallo matthias, vielen dank für deine mühe
ich hab jetzt nicht ausprobiert, ob die nachträgliche formatierung hier notwendig ist, bringt aber die möglichkeit, entsprechend formatierte ergebnisse zurückzubekommen.
gruß tom

AW: zeitformat in dezimalformat und umgekehrt
02.06.2007 22:07:00
Matthias
Hallo Tom,
...bringt aber die möglichkeit, entsprechend formatierte ergebnisse zurückzubekommen.

Ja, aber nicht für Date-Variablen:

Sub test()
Dim d As Date
d = Format("6:30", "hh:mm")
Debug.Print d
d = Format("6:30", "dd/mm/yyyy hh:mm")
Debug.Print d
End Sub


Gruß Matthias

Anzeige
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Zeitangabe in Dezimalen
Thorsten

Hallo liebe Forumnutzer,
habe hier ein kleines Problem. Ich möchte in einer Zelle eine Zeitangabe hineinschreiben, wie z.B. 1:30:00 und diese Angabe in einer anderen Zelle in der Form 1,5 anzeigen lassen. Hat jemand eine Idee, wie ich das anstellen könnte? Schon mal vielen Dank im Voraus.
01.09.2008 15:51:46
Thread-ID: 1006483
3 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Umrechnung [hh:mm] in dez [h]
Roland

Moin zusammen,
ich steh irgendwie grad kräftig auf dem Schlauch.
Ich berechne in einer Tabelle die Summe zweier Daten, als Ergebnis kommt Format [h]:mm heraus, also z.B. 37:30.
Dieses Ergebnis benötige ich in eine Dezimalzahl umgerechnet, also bei dem o.g. Beispiel sollte da 37,5 h...
22.10.2008 11:53:00
Thread-ID: 1018292
4 Beiträge
Zahlenwerte in Zeitwerte formatieren
Reinhold

Hallo Excel-Freunde: Habe eine Excel-Mappe erhalten aus einer Access-Datei mit drei Spalten mit Zeiwerten. Die Zeiten erscheinen jedoch statt 00:03 3 oder 13:15 1315. Um dies zu formatieren, denke gibt's für mich die komplizierte Variante:
1. mit führenden 000 ergänzen
2. die ersten 2...
08.11.2008 13:18:06
Thread-ID: 1022904
9 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Zeiteingabe umwandeln
Jochen

Hallo Forum
Ich habe eine Frage zu einem Makro die eine Eingabe umwandelt.
Ich habe mir eine Tabelle erstellt in die ich meine Arbeitszeit eingeben kann.
Die Berechnungen erfolgen dann alle über Excel.
Eingaben in die Tabelle
Spalte E Eintrag Arbeitsbeginn
Spalte F Eint...
01.02.2009 20:47:32
Thread-ID: 1045998
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeitformat in Dezimalformat umwandeln und umgekehrt

Schritt-für-Schritt-Anleitung

  1. VBA-Umgebung öffnen: Gehe in Excel auf Entwicklertools und klicke auf Visual Basic, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke im Projektfenster mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Modul.

  3. Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub zeit()
   Dim start As String, ende As String
   Dim beginn As Date, xtime As Date
   Dim plus As Variant

   start = "5:30" ' Startzeit
   ende = "06:00" ' Endzeit

   beginn = CDate(start) ' Konvertiere String in Datum/Zeit
   xtime = CDate(ende)   ' Konvertiere String in Datum/Zeit

   If beginn < xtime Then
       plus = xtime - beginn ' Berechnung der Zeitdifferenz
       MsgBox Format(plus, "hh:mm") ' Ausgabe der Zeitdifferenz

       plus = CDbl(plus) * 24 ' Umwandlung in Dezimalzahl
       MsgBox plus ' Ausgabe der Dezimalzahl

       plus = CDate(plus / 24) ' Umwandlung zurück in Zeitformat
       MsgBox Format(plus, "hh:mm") ' Ausgabe im Zeitformat
   End If
End Sub

  4. Makro ausführen: Drücke F5, um das Makro auszuführen. Du wirst die Ergebnisse in mehreren MsgBoxen sehen.

Häufige Fehler und Lösungen

  • Fehler: "Typ nicht korrekt": Stelle sicher, dass die Variablen richtig deklariert sind. Verwende Dim für die Typen und vermeide die Verwendung von Format für Datumstypen.

  • Problem mit der Zeitdifferenz: Wenn das Ergebnis nicht wie erwartet erscheint, überprüfe den Datentyp der Variablen. Du kannst CDbl verwenden, um die Zeit in eine Dezimalzahl umzuwandeln.

  • Dezimalzahlen werden nicht korrekt angezeigt: Stelle sicher, dass du das Ergebnis mit * 24 multiplizierst, um die Zeit in Dezimalformat umzurechnen.

Alternative Methoden

  • Excel-Formeln: Du kannst auch folgende Excel-Formel verwenden, um eine Zeitangabe in Dezimalformat zu konvertieren:

    =A1*24

    Hierbei ist A1 die Zelle mit der Zeit im Format hh:mm.

  • VBA-Funktionen: Erstelle eigene Funktionen zur Umwandlung von Zeit in Dezimal und umgekehrt:

    Function ToDezimal(t As Date) As Double
   ToDezimal = CDbl(t) * 24
End Function

Function ToDate(d As Double) As Date
   ToDate = CDate(d / 24)
End Function

Praktische Beispiele

  1. Umwandlung von hh:mm in Dezimal:

    • Eine Zeit von 6:30 in Dezimal umwandeln: =A1*24 ergibt 6.5.

  2. Umwandlung von Dezimal zurück in hh:mm:

    • Eine Dezimalzahl von 6.5 zurück in Zeit: =A1/24 ergibt 6:30.

Tipps für Profis

  • Verwende die Format-Funktion, um sicherzustellen, dass die Ausgabe die gewünschte Darstellung hat, z.B. Format(plus, "hh:mm").

  • Beachte, dass Excel intern Zeit als Bruchteil eines Tages speichert. Daher ist das Multiplizieren mit 24 notwendig, um die Zeit in Dezimal zu konvertieren.

  • Wenn du mit großen Datenmengen arbeitest, kann die Verwendung von VBA zur Automatisierung der Umwandlungen deine Effizienz erheblich steigern.

FAQ: Häufige Fragen

1. Wie konvertiere ich eine Uhrzeit in Dezimal? Um eine Uhrzeit in Dezimal zu konvertieren, kannst du die Formel =A1*24 verwenden, wobei A1 die Zelle mit der Uhrzeit ist.

2. Kann ich auch negative Zeitdifferenzen berechnen? Ja, du kannst negative Zeitdifferenzen berechnen. Achte jedoch darauf, dass die Startzeit immer kleiner als die Endzeit ist, um ein negatives Ergebnis zu vermeiden.

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