VBA? Fehler 438

[Izzy]

Huhu,

ich verzweifel gerade ein wenig.

ich weiß nicht was ich falsch mache.

Ich möchte eine Combobox auf einem Tabellenblatt befüllen (also ohne eine Userform zu nutzen)

Dafür nutze ich folgenden Code, der in die entsprechende Mappe geschrieben ist, wo die Combobox sitzt.

Code:

Private Sub ComboBox1_DropButtonClick()
ComboBox1.RowSource = "Daten!$A$2:" & _
       Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.RowSource = "Daten!$A$2:" & _
       Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 1).End(xlUp).Address
End Sub

Dieser Code funktioniert wunderbar in einer anderen Excel Datei in einer Userform.

Jetzt kommt aber nur der fehler 438. Ich habe mir auch schon Erklärungen zu diesem Fehler durchgelesen, verstehe es aber nicht wirklich, zumindest nicht soweit, das ich den code entsprechend abändern kann.

Nach anderen Codes habe ich auch gesucht und auch einige ausprobiert.



- Excel 2016

[Steffl]

Hallo,

bei einer Combobox in einem Tabellenblatt gibt es die RowSource-Eigenschaft nicht.

[Izzy]

Ah, ok.

dann muss ich mit workbook open und Combobox.additem arbeiten.

danke :)

[Izzy]

ok, doch nicht so einfach.

Code:

Private Sub Workbook_Open()
ComboBox1.AddItem "Maske ohne Schwarte"
ComboBox1.AddItem "Maske mit Schwarte"
ComboBox1.AddItem "Innenbäckchen"
ComboBox1.AddItem "Schnauzen"
ComboBox1.AddItem "Bäckchen"
ComboBox1.AddItem "Ohren"
ComboBox1.AddItem "schläfen"
ComboBox1.AddItem "Ohren Muscheln"
End Sub

Fehler:  424 Objekt erforderlich

[Izzy]

Code:

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
ComboBox1.AddItem "Maske ohne Schwarte"
ComboBox1.AddItem "Maske mit Schwarte"
ComboBox1.AddItem "Innenbäckchen"
ComboBox1.AddItem "Schnauzen"
ComboBox1.AddItem "Bäckchen"
ComboBox1.AddItem "Ohren"
ComboBox1.AddItem "schläfen"
ComboBox1.AddItem "Ohren Muscheln"

End Sub

Der Code Funktioniert jetzt

[Steffl]

ok, doch nicht so einfach.

Code:

Private Sub Workbook_Open()
ComboBox1.AddItem "Maske ohne Schwarte"
End Sub

Fehler:  424 Objekt erforderlich

Da sich der Code im Klassenmodul der Tabelle befindet, fehlt der Verweis auf das Tabellenblatt.

Code:

Private Sub Workbook_Open()

   With Worksheets("Tabelle1").ComboBox1
      .AddItem "Maske ohne Schwarte"
      .AddItem "Maske mit Schwarte"
      .AddItem "Innenbäckchen"
      .AddItem "Schnauzen"
      .AddItem "Bäckchen"
      .AddItem "Ohren"
      .AddItem "schläfen"
      .AddItem "Ohren Muscheln"
   End With
End Sub

Tabellennamen bitte anpassen!