Normale Zahl in Uhrzeit umwandeln

[TheCry]

Hallo zusammen..
Ich bin ganz neu hier und hoffe nicht, dass ich schon mir der ersten Frage, eine frage stelle die hier schon beantwortet wurde.
Ich habe zwar gescuht, aber nicht das gefunden was mir bei meinem Problem hilft.

Vor kurzem habe ich MS-Office in die Tonne getreten und mit OO neu angefangen.
Dabei musste ich ein paar Tabellen auch neu machen..

Bei einer Tabelle habe ich eine Berechnung drin, die mir den Stundenunterschied in Kommazahlen wiedergibt.
Das habe ich auch gefunden und ist ja mehr wie einfach.

Nun aber zu dem wo ich nicht weiss wie es gehen soll..
Bei der Eingabe habe ich bei MS-Office die Zelle so eingestellt, dass ich einfach 0900 eingebe und die Zelle es in 09:00 umwandelt.
Die Einstellung war dort "HH\:MM"..
Wenn ich das bei OO einstelle funktioniert die oben beschriebene Berechnung nicht mehr..

Gibt es einen Trick den ich noch nicht kenne?


Gruß
TheCry

[TheCry]

Ich muss mich berichtigen.
Die Zellen waren auf 00\:00 eingestellt.
Zusätzlich war noch ein Makro erstellt um den Zeitunterschied zu berechnen:

Code: Alles auswählen

Attribute VBA_ModuleType=VBAModule
Sub Modul1
Function Berechne_ZeitDiff(strVonZeit As Variant, strBisZeit As Variant) As Single
 
Rem   '/*-------------------------------------*/
Rem   '/*   Diverse Variablen-Deklarationen   */
Rem   '/*-------------------------------------*/
  
Dim sngVonStunde As Single
Dim sngBisStunde As Single
   
Dim sngVonMinute As Single
Dim sngBisMinute As Single
   
Dim sngVonZeit As Single
Dim sngBisZeit As Single
  
Dim sngZeitDiff As Single
  
Dim intColonVon As Integer
Dim intColonBis As Integer
   
Rem   '/*-------------------------------*/
Rem   '/*   Diverse Initialisierungen   */
Rem   '/*-------------------------------*/
  
sngZeitDiff = 0

Rem   '/*--------------------------------*/
Rem   '/*   Leere Zellinhalte abfangen   */
Rem   '/*--------------------------------*/

If (IsNull(strVonZeit) Or IsEmpty(strVonZeit) Or (strVonZeit = "") Or _
IsNull(strBisZeit) Or IsEmpty(strBisZeit) Or (strBisZeit = "")) Then
Berechne_ZeitDiff = sngZeitDiff
    
Exit Function
End If

strVonZeit = Format(strVonZeit, "00:0#")
strBisZeit = Format(strBisZeit, "00:0#")
  
intColonVon = InStr(1, strVonZeit, ":")
intColonBis = InStr(1, strBisZeit, ":")  
Rem   '/*--------------------------------------------------------*/
Rem   '/*   Abbruch bei fehlerhaften Zellinhalten, wenn umfor-   */
Rem   '/*   matierte Zeitangaben keine Doppelpunkte enthalten!   */
Rem   '/*--------------------------------------------------------*/

If ((intColonVon = 0) Or (intColonBis = 0)) Then
Berechne_ZeitDiff = sngZeitDiff
     
Exit Function
End If
     
Rem   '/*------------------------------------*/
Rem   '/*   Die eigentliche Berechnung ...   */
Rem   '/*------------------------------------*/
   
sngVonStunde = Val(Mid(strVonZeit, 1, intColonVon - 1))
sngBisStunde = Val(Mid(strBisZeit, 1, intColonBis - 1))
sngVonMinute = Val(Mid(strVonZeit, intColonVon + 1))
sngBisMinute = Val(Mid(strBisZeit, intColonBis + 1))
   
sngVonZeit = sngVonStunde + sngVonMinute / 60
sngBisZeit = sngBisStunde + sngBisMinute / 60
   
Rem   '/*------------------------------------*/
Rem   '/*   Zeitdifferenz als Rückgabewert   */
Rem   '/*------------------------------------*/
  
sngZeitDiff = sngBisZeit - sngVonZeit

Berechne_ZeitDiff = sngZeitDiff

End Function
End Sub

Nur das funktioniert nicht mehr.

[AhQ]

Hallo,

Makros aus Excel gehen üblicherweise nicht wirklich in Calc, aber die Grundfrage wurde hier schon mal behandelt. Schau mal hier, da hatte jemand die gleiche Frage.

Viele Grüße
AhQ

[TheCry]

Morgen....
Das sieht richtig gut aus und hilft mir auch bei der Berechnung..
Muss jetzt nur noch schauen wie ich mit der Studenzahl HH:MM einen Preis berechne...

Gruß
Sascha

[AhQ]

Hallo,

auch da kann Dir geholfen werden. Schau mal hier.

Viele Grüße
AhQ

[TheCry]

Das war genau der Beitrag den ich am Anfang genutzt hatte...
Aber manchmal sieht man den Wald vor lauter Bäumen nicht mehr.
Ich habe es jetzt hinbekommen... Danke für die Hilfe