nachdem ich mein Problem mit der ersten leeren Zeile gelöst habe, tut sich schon das nächste Problem auf!
Ich möchte einen Wert aus einer ImageCombo an eine Variable übergeben.
Ich bekomme aber immer wieder eine Fehlermeldung egal welcher Variablentyp.
Der Dropdown mit Scrollen funktioniert aber prima.
Liegt mein Problem vielleicht in meinem Code?
Private Sub UserForm_Initialize()
Dim intUntersterEintrag As Integer
Dim intIndex As Integer
intUntersterEintrag = Range("O150").End(xlUp).Row
ImageCombo1.Text = ""
For intIndex = 2 To intUntersterEintrag
ImageCombo1.ComboItems.Add , , ActiveSheet.Cells(intIndex, "O")
Next
ImageCombo2.Text = ""
For intIndex = 2 To intUntersterEintrag
ImageCombo2.ComboItems.Add , , ActiveSheet.Cells(intIndex, "O")
Next
ImageCombo3.Text = ""
For intIndex = 2 To intUntersterEintrag
ImageCombo3.ComboItems.Add , , ActiveSheet.Cells(intIndex, "O")
Next
End Sub
Es kommt ein Laufzeitfehler '438':Objekt unterstützt diese Eigenschaft oder Methode nicht
...und springt hier her:
Private Sub Cmd_Buchen_click()
Dim intKonto1 As Integer
intKonto1 = ImageCombo1
End Sub()