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

Microsoft Office 2003-2019 => Excel => Thema gestartet von: amdfreak am Juli 27, 2016, 22:07:49 Nachmittag

Titel: Office 2013: Uhrzeit in Zelle C11?
Beitrag von: amdfreak am Juli 27, 2016, 22:07:49 Nachmittag

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!

Titel: Antw:Office 2013: Uhrzeit in Zelle C11?
Beitrag von: gmg-cc am Juli 28, 2016, 01:39:11 Vormittag

Moin,
ganz zu Beginn ein Hinweis (http://www.excel-ist-sexy.de/forenhilfe/anrede-und-gruss/).

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

Titel: Antw:Office 2013: Uhrzeit in Zelle C11?
Beitrag von: steve1da am Juli 28, 2016, 07:10:05 Vormittag

Hola,

zur Info....

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

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

Gruß,
steve1da

Titel: Office 2013: Antw:Office 2013: Uhrzeit in Zelle C11?
Beitrag von: amdfreak am Juli 28, 2016, 09:34:38 Vormittag

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...

Titel: Antw:Office 2013: Uhrzeit in Zelle C11?
Beitrag von: gmg-cc am Juli 28, 2016, 10:50:52 Vormittag

Danke für die Rückmeldung.
Dennoch: Crossposting ohne gegenseitige Verweise ist einfach nur egoistisch und Mist (http://www.excel-ist-sexy.de/forenhilfe/crossposting/)!
Gerade hier haben sich wieder einmal diverse Leute den Kopf zerbrochen, ohne dass sie voneinander wussen ...  :-\