Combobox mit Uhrzeit füllen

Bild

Betrifft: Combobox mit Uhrzeit füllen
von: Sabrina
Geschrieben am: 25.11.2015 22:42:27

Hallo,
ich habe einen Bereich mir dem Namen "Uhrzeit" festgelegt. Dort stehen mehrere Uhrzeiten drinnen. Die Werte habe ich mit hh:mm definiert
Ich möchte damit eine Combobox füllen. Hierzu habe ich in den Eigenschaften bei ListFillRange "Uhrzeit" reingeschrieben.
Den ausgewählten Wert geben ich bei LinkedCell in die definierte Zelle "Status_Uhrzeit" wieder aus.
Aber wenn ich 11 Uhr anwähle wird mir 0,458333333333333 ausgegeben.
Komme nicht weiter :(
Gruß
Sabbel

Bild

Betrifft: AW: Combobox mit Uhrzeit füllen
von: Sepp
Geschrieben am: 25.11.2015 22:52:52
Hallo Sabrina,
formatiere die Zelle als Uhrzeit!

Gruß Sepp


Bild

Betrifft: AW: Combobox mit Uhrzeit füllen
von: Sabrina
Geschrieben am: 25.11.2015 23:10:08
Das habe ich gemacht ...
aber es wird immerzu eine Zahl ausgegeben
https://www.herber.de/bbs/user/101809.xls
Gruß Sabbel

Bild

Betrifft: AW: Combobox mit Uhrzeit füllen
von: Sepp
Geschrieben am: 25.11.2015 23:27:45
Hallo Sabrina,
dann musst du die Combo per VBA füllen und auch den Wert per VBA der Zelle zuweisen.
https://www.herber.de/bbs/user/101810.xls

Gruß Sepp


Bild

Betrifft: AW: Combobox mit Uhrzeit füllen
von: Ludmila
Geschrieben am: 26.11.2015 00:28:57
Hallo Sabrina,
versuch mal nachfolgend Code.
Gruß
Ludmila
In diese Arbeitsmappe

Private Sub Workbook_Open()
fillCombo
End Sub
in ein Modul
Sub fillCombo()
With Sheets("Tabelle1")
.ComboBox1.Clear
.ComboBox1.List = [transpose(Text((row(10:19)-1)/24,"hh:mm"))]
.ComboBox1.ListIndex = 3
End With
End Sub In Tabellenblatt (Code)
Private Sub ComboBox1_Click()
  If ComboBox1.ListIndex > -1 Then Range("Termin_Zeit") = TimeValue(ComboBox1.Text)
End Sub


Bild

Betrifft: AW: Combobox mit Uhrzeit füllen
von: Sabrina
Geschrieben am: 26.11.2015 20:26:29
Danke Jungs,
es funktioniert.
Habe nur noch ein Problem dass "Auf Anruf" einfügen möchte.
Aber da es keine Uhrzeit ist geht es natürlich nicht. Oder?
Habe als Ersatz die Zeit 01:11 eingeführt.
Und dann eine WennAbfrage eingeführt .. aber es geht nicht.
Was mache ich falsch?

=WENN(Termin_Zeit="01:11";"Auf Anruf";Termin_Zeit)
LG
Sabbel

Bild

Betrifft: AW: Combobox mit Uhrzeit füllen
von: Sepp
Geschrieben am: 26.11.2015 20:36:35
Hallo Sabrina,
auch kein Problem.
https://www.herber.de/bbs/user/101835.xls

Gruß Sepp


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Combobox mit Uhrzeit füllen"