Ich möchte erreichen, dass in der ListBox1 die spalten in Abhängigkeit der Listbox2 befüllt werden.
Leider bekomme ich den Fehler Eigenschaft Column konnte nicht gesetzt werden.
Was müßte ich bitte am Code ändern , damit alles funktioniert.
Private Sub ListBox1_befüllen()
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
With ListBox1
' .Clear ' löschen ComboBox
.ColumnCount = 7 ' drei Spalten
.ColumnWidths = "1,8 cm;1,9 cm;16 cm;1,8 cm;1,8 cm" ' Breite der Spalten
' .ListRows = 12 ' angezeigte Zeilen
'.Height = 20 ' Höhe der ComboBox
'.Font.Size = 8 ' Schriftgröße
' .BackColor = RGB(204, 255, 204) ' Hintergrundfarbe
End With
ListBox1.Column(0) = wks.Cells(ListBox2.ListIndex + 1, 3)
ListBox1.Column(1) = wks.Cells(ListBox2.ListIndex + 1, 27)
ListBox1.Column(2) = wks.Cells(ListBox2.ListIndex + 1, 28)
ListBox1.Column(3) = wks.Cells(ListBox2.ListIndex + 1, 106)
ListBox1.Column(4) = wks.Cells(ListBox2.ListIndex + 1, 105)
End Sub
Danke
Josef