ComboBox
09.06.2020 18:15:29
Achim
Ich komme im Moment nicht weiter.
Ich habe in der Userform mehrere Comboboxen. Die Comboboxen werden mit diesem Code gefüllt.
With UF_GrunddatenNachschulung.ComboBox7
.ColumnCount = 4
.ColumnHeads = False
.RowSource = "ZWA_Zeitangaben!H5:H370" 'Datum
.ColumnWidths = "2cm"
End With
das funktioniert. Des weiteren habe ich für das richtige Format ein Change gesetzt..
Private Sub ComboBox7_Change()
ComboBox7 = CDate(ComboBox7.Value)
End Sub
Dankeschön für die Bemühungen.
Gruß Achim H.
Anzeige