ListBox
03.05.2007 17:47:00
Ludwig
Wie erreiche ich, dass in meiner ComboBox alle drei Spaltenwerte in der Auswahlzeile stehen?
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Daten!C39:E60"
ComboBox1.ListIndex = 2
'ComboBox1.ColumnHeads
End Sub
Private Sub ComboBox1_Change()
Dim TB As Worksheet
Dim R%
Set TB = Worksheets("Daten")
R = ComboBox1.ListIndex + 39
TB_DiK = TB.Cells(R, 3)
TB_KLänge.Text = TB.Cells(R, 5)
End Sub
Vielen Dank im Voraus!
Gruß Ludwig
Anzeige