Ich habe folgendes Problem:
Ich habe eine UserForm erstellt, in der ich Werte von Zellen anzeigen und ändern kann.
Konkret geht es um eine Arbeitszeiterfassung.
Mit einer ComboBox möchte ich die Tätigkeit auswählen.
Wenn ich jetzt aber durch die Zellen scrolle (mit SpinButton) soll der aktuelle Eintrag der Zelle in der ComboBox dargestellt werden.
Dies wollte ich mit der ComboBox1.ListIndex Eigenschaft erreichen.
Bekomme allerdings immer den Fehler: Laufzeitfehler '380'
Eigenschaft ListIndex konnte nicht gesetzt werden.
Ungültiger Eigenschaftswert
Allerdings erst bei der IF - Abfrage If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 3 Then ComboBox1.ListIndex = 4
Weis nicht mehr weiter.
Wäre echt toll wenn mir hier jemand helfen könnte.
Bin für jede Kritik und / oder Schelte offen.
Nachfolgend der Teil meines Programmes.
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Montage" 'ListIndex = 1
ComboBox1.AddItem "Büro" 'ListIndex = 2
ComboBox1.AddItem "Krank" 'ListIndex = 3
ComboBox1.AddItem "Abfeiern" 'ListIndex = 4
ComboBox1.AddItem "Urlaub" 'ListIndex = 5
ComboBox1.AddItem "Sonderurlaub" 'ListIndex = 6
'Use drop-down list
ComboBox1.Style = fmStyleDropDownList
SpinButton1.Max = 16
SpinButton1.Max = 14
End Sub
Private Sub SpinButton1_Change()
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 1 Then _
ComboBox1.ListIndex = 1
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 2 Then _
ComboBox1.ListIndex = 2
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 3 Then _
ComboBox1.ListIndex = 3
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 3 Then _
ComboBox1.ListIndex = 4
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 5 Then _
ComboBox1.ListIndex = 5
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 6 Then _
ComboBox1.ListIndex = 6
End Sub