Hallo VBA Freunde,
ich möchte eine mehrspaltige Excel Tabelle (aus Office 97) in eine ComboBox füllen. Nur ist die Tabelle häufig unterschiedlich lang und es sollen nur die Zellen mit Inhalt in die ComboBox. In der Excel Tabelle gibt es keine „leeren Zellen“ und alle Spalten sind gleich lang. Der VBA-Code, den ich dazu entworfen habe bringt mir die Fehlermeldung: Laufzeitfehler 13 - Typen unverträglich und die Zeile Do Until Ber = "" wird gelb markiert.
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 4
End Sub
Private Sub CommandButton1_Click()
Dim Ber As Variant
Ber = Worksheets("Tabelle1").Range("A:D")
Do Until Ber = ""
ComboBox1.List() = Ber
Loop
End Sub
Kann mir jemand diesen Code berichtigen und ist es evtl. möglich die ComboBox immer erst ab der 2. Zeile zu füllen, da in der 1. Zeile der einzelnen Spalten der Spaltentitel steht?
Besten Dank und freundliche Grüße
Harry
