hab irgendwo ein Problem
Ein ComboBox in einer Tabelle soll nach einlesen von Text aus einer Tabelle diesen wieder ausgeben, was er aber nicht macht.(bzw nur erste Spalte)
comboBox1_Change ()
Range("AA37")=ComboBox1.Column (0)
Range("AA38")=ComboBox1.Column (1)
end Sub
ComboBox1_DropButtonClick()
For i = 3 to 40
ComboBox1.ColumnCount = 2
ComboBox1.TextColumn = 1
ComboBox1.Additem sheets("xy").Cells(i, 1)
ComboBox1.List(0, 1) = Sheets("xy").Cells(i, 2)
Next i
End Sub