Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Eingabeformat automatisch ändern lassen

Betrifft: Eingabeformat automatisch ändern lassen von: Alex
Geschrieben am: 06.09.2004 22:18:38

Moin,
hoffe, dass mir heute Abend noch jemand helfen kann.
Folgendes Problem:
Mein Ziel ist es, dass ich in Excel eine 6-stellige Zahl eingebe (z.B. 001833).
Diese soll dann in der Zelle in der eingegeben wurde in einem Zeitformat erscheinen(hh:mm:ss), also als 00:18:33.
Was muss ich tun, um dies hinzukriegen.
Muss knapp 1200 Zeiten eingeben, und jedes mal diese Doppelpunkte ebenfalls
tippen zu müssen kann richtig nerven.
Danke für schnelle Hilfe, muss morgen mit dem Ganzen fertig sein.
Gruß
Alex

  


Betrifft: AW: Eingabeformat automatisch ändern lassen von: Beate Schmitz
Geschrieben am: 06.09.2004 22:34:29

Hallo Alex,

wenn du in die Recherche gehst und nach "Zeiteingaben" suchst, findest du eine Menge dazu. Hier eine interessanter Thread:

https://www.herber.de/forum/archiv/16to20/t19149.htm#19149

Gruß,
Beate


  


Betrifft: AW: Eingabeformat automatisch ändern lassen von: Ramses
Geschrieben am: 06.09.2004 22:34:55

Hallo

probier mal

Option Explicit


Sub Test_Change()
Dim inTime As String
inTime = InputBox("Bitte Uhrzeit OHNE Sonderzeichen eingeben:", "Uhrzeit")
If Not IsNumeric(inTime) Or Len(inTime) <> 6 Then
    MsgBox "Keine korrekte Uhrzeit, bitte neu eingeben"
    Exit Sub
End If
MsgBox Change_Date(inTime)
End Sub


Function Change_Date(chStr As String) As Date
Change_Date = Format(Format(chStr, "00:00:00"), "hh:mm:ss")
End Function


Gruss Rainer


  


Betrifft: AW: Eingabeformat automatisch ändern lassen von: Alex
Geschrieben am: 06.09.2004 22:50:42

Hallo Rainer,
ich danke für die schnelle Hilfe, und es läuft wie ne 1 !!! Jetzt geht das alles ne
Ecke schneller. Vielen Dank.

Gruß
Alex

Und noch einen Gruß an Beate. Habe das Forum durchsucht, da war leider nix zu finden,
dass mir genau mit diesem Prob weitergeholfen hätte ;)


  


Betrifft: Merci :-) Geschlossen o.T. von: Ramses
Geschrieben am: 06.09.2004 23:17:17

...


  


Betrifft: AW: Eingabeformat automatisch ändern lassen von: Karl-Otto reimann
Geschrieben am: 06.09.2004 23:03:40

Hallo Alex
Ich kann die Beispiele leider nicht nachvollziehen, dafür aber das hier:
https://www.herber.de/bbs/user/10601.xls
Gruß
Ko


 

Beiträge aus den Excel-Beispielen zum Thema "Eingabeformat automatisch ändern lassen"