Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Ich habe eine Aufgabe geerbt und komme nicht weiter…

Ich habe solch eine Zahl 1820 in der Excel Zelle H2 auf dem Blatt “Tabelle“ 3 stehen -> möchte diese Zahl am Ende auf Blatt “Tabelle“ 1 in der Arbeitsmappe als Uhrzeit haben-> also dann im Format 18:20 in Zelle C11

Das Blatt 3 kann keine Formatierungen direkt haben da sich der komplette Inhalt wiederkehrend ändert.

Auf Blatt 1 habe ich diese Funktion hinter der Zelle die am Ende 18:20 anzeigen soll:

=formatTime(WVERWEIS(A11;Data!A1:ZZ200;$C$4;FALSCH))

Im VBA diesen string zu „formatTime“ dazu

Public Function formatTime(wert As String)
Dim hour As String
Dim minute As String
Dim ergebnis As String

If Len(wert) < 4 Then wert = "0" + wert

hour = Mid(wert, 1, 2)
minute = Mid(wert, 2, 2)

formatTime = hour + ":" + minute
End Function

Mein Problem ist das die Umrechnung nicht passt also bei 1820 kommt 18:82 raus...warum?

Oder geht’s auch anders?

Wem das ganze was sagt bitte um help!