Office 2013: Uhrzeit in Zelle C11?

[amdfreak]

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!

[gmg-cc]

Moin,
ganz zu Beginn ein Hinweis.

Und: Derjenige, der das programmiert hat, muss noch sehr viel lernen. Beispielsweise sind hour und minute reservierte Worte, die nicht als Variablen-Namen verwendet werden sollten. Und ach ja, btw: Ich habe mir nur die Daten der Datei angesehen und finde keinen Zusammenhang mit den Makro-Zeilen des Beitrags.

Code: [Auswählen]

Option Explicit

Function Num2Time(Wert)
   Wert = Right("00" & Wert, 4)
   Num2Time = TimeSerial(Left(Wert, 2), Right(Wert, 2), 0)
   'Alternative als Text:
   'Num2Time = CStr(Left(Wert, 2) & ":" & Right(Wert, 2))
End Function

[steve1da]

Hola,

zur Info....

http://ms-office-forum.net/forum/showthread.php?t=334328

http://www.herber.de/forum/messages/1506634.html

Gruß,
steve1da

[amdfreak]

Hallo Günther,

DEINE Lösung funktioniert vielen vielen Dank! Die VBA Beziehen sich auf das Blatt 1 wo dann die Uhrzeit final rein muss...

[gmg-cc]

Danke für die Rückmeldung.
Dennoch: Crossposting ohne gegenseitige Verweise ist einfach nur egoistisch und Mist!
Gerade hier haben sich wieder einmal diverse Leute den Kopf zerbrochen, ohne dass sie voneinander wussen ...