Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dezimalzahlen in Stunden und Minuten umrechnen

Dezimalzahlen in Stunden und Minuten umrechnen
Claudia
Hallo zusammen,
mittels eines VBA-Codes werden aus einer Hostanwendung Daten nach Excel übertragen.
6,25
17,65
-2,97
1,09
4,52
5,13
10,87
5,52
6,00
4,03
Es handelt sich hierbei um Dezimalzahlen, die in Zeit (Stunden, Minuten) umgewandelt werden sollen. Diese Umrechnung soll innerhalb der gleichen Zelle passieren.
Betroffen sind die Zellen B4 bis N35
Wie kann ich das per VBA am besten anstellen?
Vielen Dank!
LG
Claudia
AW: Dezimalzahlen in Stunden und Minuten umrechnen
19.12.2010 16:48:22
Josef

Hallo Claudia,
dir ist aber bewusst, dass Excel nicht mit negativen Zeiten rechnen kann, oder nur über Umwege.
Der folgende Code rechnet alle Zahlen im ausgewählten bereich um.

Sub umrechnen()
  Dim rng As Range
  
  For Each rng In Selection
    If IsNumeric(rng) Then
      If rng >= 0 Then
        rng = rng / 24
      Else
        rng = "-" & Format(Abs(rng) / 24, "hh:mm:ss")
      End If
    End If
  Next
  
  Selection.NumberFormat = "[hh]:mm:ss"
End Sub

Gruß Sepp

Anzeige
AW: Dezimalzahlen in Stunden und Minuten umrechnen
19.12.2010 17:05:30
Claudia
Hallo Sepp,
vielen Dank für die prima Lösung. Dein Hinweis hat mich stutzig gemacht bzw. es läuft nun genau auf diese Situation hin. Wie kann ich denn nun mit diesen Minuswerte sinnvoll (wie sagtest Du "über Umwege") rechnen? Daran hatte ich nämlich überhaupt nicht gedacht.
LG
Claudia
AW: Dezimalzahlen in Stunden und Minuten umrechnen
19.12.2010 17:21:47
Claudia
Uih, da habe ich ja heute Abend was zu tun.
Vielen Dank für Deine Hilfe. Wünsch Dir schöne Weihnachten.
AW: Dezimalzahlen in Stunden und Minuten umrechnen
20.12.2010 08:45:23
Wilfried
Hallo!
Meinst Du es so? Weiterrechnen geht aber nicht.
Zeit
 AB
511Zahl auch negativ umwandeln in Text - Uhrzeit darstellen 
512   
513-14,5-14:30
514-4,75-04:45
515  -19:15

verwendete Formeln
Zelle Formel Bereich
B513 =WIEDERHOLEN("-";A513<0)&TEXT(ABS(A513/24);"[hh]:mm") 
B514 =WIEDERHOLEN("-";A514<0)&TEXT(ABS(A514/24);"[hh]:mm") 
B515 {=TEXT(ABS(SUMME(WENN(LINKS(B513:B514)="-";TEIL(B513:B514;2;99)*-1;B513:B514*1)));WENN(SUMME(WENN(LINKS(B513:B514)="-";TEIL(B513:B514;2;99)*-1;B513:B514*1))<0;"-";)&"[hh]:mm")} $B$515
{} Matrixformel mit Strg+Umschalt+Enter abschließen

Tabellendarstellung in Foren Version 5.27


Gruß
Wilfried
Anzeige
AW: Dezimalzahlen in Stunden und Minuten umrechnen
20.12.2010 09:55:50
Tino
Hallo,
hier mal eine VBA Variante.
Ich verwende das 1904 Datumsformat, damit man auch mit negativen Zahlen rechnen kann.
Sub Makro1()
Dim ArrayData()
Dim A&, B&

'damit man mit negativen Zeiten rechnen kann 
ActiveWorkbook.Date1904 = True
'Tabelle und Rangebereich anpassen 
With Sheets("Tabelle1").Range("B4:N35")
    ArrayData = .Value2
    
    For A = 1 To Ubound(ArrayData)
        For B = 1 To Ubound(ArrayData, 2)
            If ArrayData(A, B) <> "" Then
                If IsNumeric(ArrayData(A, B)) Then
                    If ArrayData(A, B) >= 0 Then
                        ArrayData(A, B) = ArrayData(A, B) / 24
                    Else
                        ArrayData(A, B) = -Abs(ArrayData(A, B)) / 24
                    End If
                End If
            End If
        Next B

    Next A
        
    .NumberFormat = "hh:mm;@"
    .Value2 = ArrayData
End With

End Sub
Gruß Tino
Anzeige

300 Forumthreads zu ähnlichen 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
Anzeige
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
Zeitspanne übers Datum in Stunden berechnen
Erich


Liebe Excelianer!
Hätte folgendes Problem ... hier gleich mal der Link: https://www.herber.de/bbs/user/56586.xls
Es geht darum: ich habe zwei verschiedene Datum(s) mit unterschiedlicher Uhrzeit. Ich brauch jetzt die Zeitspanne dazwischen im Format Stunden und Minuten.
Ich hab...
07.11.2008 10:22:00
Thread-ID: 1022564
2 Beiträge
Anzeige
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
String mit 0xZahl in Dezimal umrechnen
Melanie

Hallo,
ich habe z.b in zelle A1 : 0x000123A2 stehen (ist also ein string mit einer Hexadezimalen zahl)
und in zelle B1 will ich den dezimalen Wert haben ... die Hexindez() funktion kann aber nichts mit dem 0x anfangen.
Wer kann helfen ?
Gruss
Melanie
10.12.2008 11:01:00
Thread-ID: 1031615
3 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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
3
1
4
3
2
2
6
4
14
3
1
6
2
2
11
2
1
5
5
16
9
4
1