Excel VBA Zeitformat als Dezimalzahl mit Combobox

Question

Sehr einfach und sehr ärgerlich, ich habe gesucht Lösung für viele Stunden ohne Hilfe ...

Problem: Ich Combobox aus benannten Bereich bin bevölkern, Bereich Liste der (formatiert mal wie die Zeit :-), Combo scheint in Ordnung, Drop-Down meine Zeiten zeigt, wie sie sein sollte, aber wenn gewählte Zeit wird als Dezimalzahl formatiert ...

Hier ist der Code (auf das Minimum gerissen):

Private Sub UserForm_Initialize() 
    ComboBoxTime.RowSource = "Help!Time" 
End Sub 

„Hilfe“ ist der Name des Arbeitsblatt enthält benannten Bereich „Time“ Ich habe versucht, verschiedene Möglichkeiten, ohne Glück Formatierung ...

ComboBoxTime = Format(ComboBoxTime, "hhmm") 

Hier Link zu probieren. http://www.equstom.fi/dateproblem.html

(Und ja ich von benannten Bereich füllen muß, anstatt für jede Schleife, und ich werde mit Code, vollständiges Dokument gesetzt .value ist eigentlich recht komplex, aber ich enthalten nur das Problem Teil ...)

Answer 1

Das Problem ist benannt Bereich, den ich verwende, wenn Werte als Zeit formatiert werden, wird es nicht funktionieren. Ich habe es funktioniert, wenn Werte Text waren! Das Problem hat etwas damit zu tun, dass Excel in Finnisch und VBA in Englisch ist ... Ich habe eine zweite Spalte neben dem Bereich hinzugefügt, die Textwerte in diesen zweiten Bereich kopiert, der als Zeit formatiert ist. Schnell und dreckig! (Danke für Ihre Eingabe Belisarius)

Answer 2

versuchen, etwas wie folgt aus:

Private Sub ComboBox1_Change() 
With ComboBox1 
    .Value = Format(.Value, "hh:mm:ss AMPM") 

End With 
End Sub 

HTH!

Bearbeiten Dies ist, was ich sehe, wenn Sie Ihre Combo verlassen. Die Zeitanzeige funktioniert OK.

Edit 2

den Fehler "ungültige Eigenschaft" Gefunden:

Sie müssen "Match requiered" auf FALSCH im Kombinationsfeld gesetzt. Wenn Sie der Meinung sind, dass es "TRUE" sein sollte, müssen Sie es von Hand validieren ...