ich befülle eine Combobox mit Datumswerten aus einer Hilfstabelle. Allerdings erscheinen in der Userform in den Comboboxfeldern nur die Werte aus der Hilfstabelle, wenn ich auch tatsächlich die Hilfstabelle geöffnet habe. annsonsten bleibt die Auswahl leer.
Was mache ich falsch?
Hier die Anweisung Initialize
Option Explicit
Option Compare Binary
Private Sub UserForm_Initialize()
With ComboBox2
.RowSource = Worksheets("Hilfstabelle EINGABE").Range("J29:J32").Address
End With
With ComboBox2
.RowSource = Worksheets("Hilfstabelle EINGABE").Range("J33:J34").Address
End With
End Sub
Hier der Code
Private Sub UserForm_Activate()
'Startposition Userform
Me.Left = 750
Me.Top = 200
ComboBox2.Text = Sheets("Hilfstabelle EINGABE").Range("J31").Text
ComboBox3.Text = Sheets("Hilfstabelle EINGABE").Range("J32").Text
ComboBox2 = Format(CDate(ComboBox2), "mm") & "/" & Format(CDate(ComboBox2), "yyyy")
ComboBox3 = Format(CDate(ComboBox3), "mm") & "/" & Format(CDate(ComboBox3), "yyyy")
und hier der Code
Private Sub ComboBox2_Change()
ComboBox2 = Format(CDate(ComboBox2), "mm") & "/" & Format(CDate(ComboBox2), "yyyy")
End Sub
Private Sub ComboBox3_Change()
ComboBox3 = Format(CDate(ComboBox3), "mm") & "/" & Format(CDate(ComboBox3), "yyyy")
End Sub
In der Hilftabelle stehen Datumswete im Format MM.YYYYNUR wenn Hilfstabelle EINGABE aktiv ist- werden die gewünschten Daten in der UF angezeigt.