Komm gerade nicht weiter und zwar fügt der nachfolgende Code in die Listbox die gefilterten Daten aus der Tabelle ein aber nur die erste Spalte. Wo liegt mein Fehler?
Private Sub ComboBox1_Change()
Dim lZeile As Integer
lZeile = 1
With ListBox1
.Clear
Do Until Range("C" & lZeile).Value = ""
If ComboBox1.Text = Range("C" & lZeile).Value Then
ListBox1.AddItem Range("A" & lZeile).Value
End If
lZeile = lZeile + 1
Loop
.ColumnCount = 7
End With
End Sub
Private Sub UserForm_Initialize()
Dim oDic As Object
Dim lngZeile As Long, meAr As Variant
Dim wks As Worksheet
Set wks = Sheets("Kürzel")
Set oDic = CreateObject("Scripting.Dictionary")
With wks
meAr = .Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
End With
For lngZeile = 1 To UBound(meAr)
oDic(meAr(lngZeile, 1)) = 0
Next
ComboBox1.List = oDic.keys
Set oDic = Nothing
Dim tblDepot As Worksheet
Dim strName As String
Set tblDepot = Worksheets("Order")
'Beschriftungen für die Bezeichnungsfelder aus Tabelle holen
With frm_Kaufen
.Label1.Caption = tblDepot.Cells(1, 1).Value
.Label2.Caption = tblDepot.Cells(1, 2).Value
.Label3.Caption = tblDepot.Cells(1, 3).Value
.Label4.Caption = tblDepot.Cells(1, 4).Value
.Label5.Caption = tblDepot.Cells(1, 5).Value
.Label6.Caption = tblDepot.Cells(1, 6).Value
.Label7.Caption = tblDepot.Cells(1, 7).Value
.Label8.Caption = tblDepot.Cells(1, 8).Value
.Label9.Caption = tblDepot.Cells(1, 9).Value
.Label10.Caption = tblDepot.Cells(1, 10).Value
.Label11.Caption = tblDepot.Cells(1, 11).Value
.Label14.Caption = tblDepot.Cells(1, 5).Value
.ComboBox1.SetFocus
End With
If Sheets("Order").Range("R2").Value = "Ihr Anfangskapital ist verbraucht, bitte Konto auffü _
llen!" Then
strName = Sheets("Order").Range("R2").Value
Else
Exit Sub
End If
MsgBox strName
End Sub