Mehrere RowSource in mehrere Listboxreih
26.04.2022 11:02:08
JoTu
ich habe in meinen Code etwas gelöscht und komme einfach nicht drauf, was fehlt. Habe bereits 2 Stunden im Netz gesucht, aber nichts gefunden, ist vermutlich zu einfach ...
Ich habe eine Tabelle mit Namen in Spalte B und wenn der Name aus einem Suchfeld mit dem in Spalte B übereinstimmt, soll die Reihe in einer UserForm-Listbox angegeben werden. Leider werden mit meinen Code die Reihen in der Listbox nicht untereinander angezeigt, sondern immer die erste Zeile ersetzt.
Private Sub UserForm_Initialize()
Dim strString As String
Dim Zelle As Range
Dim sh As Worksheet
Set sh = Worksheets("Tabelle5")
strString = sh.Cells(5, 3).Value
With UserForm1.ListBox1
.ColumnCount = 14
For Each Zelle In Range("Tabelle5!A13:N13").Rows(1).Cells
strCW = strCW & ";" & Zelle.Width
Next Zelle
.ColumnWidths = Mid(strCW, 2)
For Each Zelle In sh.Range(Cells(13, 2), Cells(Rows.Count, 2).End(xlUp))
If Zelle.Value = strString Then
.RowSource = "Tabelle5!" & sh.Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 14)).Address
End If
Next Zelle
End With
End Sub
Johannes
PS: Was ich auch noch nicht gecheckt habe ist, welchen Dim hier strCW einnimmt... Danke auch hier für Aufklärung :)