Ich habe mein Problem beim letzten Mal nicht so richtig dargestellt deshalb mache ich es hier nochmal:
Ich habe zwei Arbeitsmappen, wenn man die eine öffnet öffnet sich im Hintergrund die Daten-Arbeitsmappe wo die Zeiten von 6:00-20:00 in 15 Minuten Schritten untereinander stehen. (Formatiert als Uhrzeit!)
Klickt man bei der ersten Mappe auf einen Button öffnet sich die Userform wo 2 Comboboxen enthalten sind, wo man die Start- und die Endzeit auswählt. Die Uhrzeiten werden beim initialisieren der Userform eingelesen.(Quelltext für eine Combobox siehe unten! Ist zwar nicht so sauber programmiert aber was solls!)
Wenn die Userform startet und auf die Combobox klickt sieht man alles richtig wählt man dann eine Zeit aus formatiert er die Zeit um in eine Zahl. (statt 6:00 dann 0,25!) Wie löse ich das Problem!
Vielen Dank im Vorraus!
PS: Ich muss das so programmieren da die Leute die das benutzen es bestimmt umändern werden! Zum Beispiel statt 15 Minuten Abstände dann 20!
Private Sub UserForm_Initialize()
...
kl = "" & "a2:a" & Workbooks("daten.xls").Sheets("datenblatt").Cells(4, 4) + 1 & ""
UserForm1.ComboBox4.RowSource = (kl)
...