|
Hallo Adrian
wenn du es weiterhin auf diese Weise, machst solltest du folgendes bedenken
du gibts im Initialize die RowSource vor
damit hast du deine Comboboxen befüllt
im Combobox-change gibst du der Combobox einen neuen Eintrag hinzu
und der ist dann Listindex -1
lass die Rowsource mal weg und mach es auf diese Weise
ich hatte die Zeiten mit Datum und Uhrzeit im Sheet Jahresbetrachtung in den Zellen A1 bis A24
das musst du dann anpassen
Private Sub UserForm_Initialize()
Dim arrDaten As Variant
arrDaten = Sheets("Jahresbetrachtung").Range("A1:A24")
With ComboBox1
.List = arrDaten
End With
With ComboBox2
.List = arrDaten
End With
End Sub
Private Sub ComboBox1_Change()
Sheets("Jahresbetrachtung").Range("F1").Value = Me.ComboBox1.ListIndex + 1
End Sub
Private Sub ComboBox2_Change()
Sheets("Jahresbetrachtung").Range("G1").Value = Me.ComboBox2.ListIndex + 1
End Sub
MfG Tom
|