versuche mit Hilfe eines autofilters den Inhalt einer listbox zu füllen.
allerdings funktioniert der befehl rowSource nicht so wie ich mir dass vorstelle, ich kann ja nicht sagen rowsource="A2:B5" denn wenn A2 aufgrund des autofilters ausgeblendet ist wird sie trotzdem in der Listbox angezeigt.
Hier ist der Code:
Private Sub ComboBox1_change()
Baugruppe.Label1.Caption = ComboBox1.List(ComboBox1.ListIndex, 0)
Baugruppe.Label3.Caption = ComboBox1.List(ComboBox1.ListIndex, 2)
Baugruppe.Label5.Caption = ComboBox1.List(ComboBox1.ListIndex, 3)
Baugruppe.Label7.Caption = ComboBox1.List(ComboBox1.ListIndex, 4)
Baugruppe.Label9.Caption = ComboBox1.List(ComboBox1.ListIndex, 5)
Sheets("Baugruppe").Select
If AutoFilter = False Then
Range("B1").Select
AutoFilter = True
End If
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
Range("A65000").Select
Selection.End(xlUp).Select
Range(Selection, "AB2").Select
With ListBox1
.RowSource = Sheets("Baugruppe").Range(Range("A1").Offset(1, 0), AB65000.End(xlUp)) <--- hier ist der Fehler!!!!!
.ColumnCount = 28
.ColumnWidths = "0;0;94;94;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0"
End With
End Sub
ich hab den fehler markiert
Hoffe jemand kann mir helfen
Danke schon mal
Andi