ListBox RowSource mit Variabler Zeile

Guten Tag,
ich bin neu hier und hoffe, dass mir jemand bei meinem Anliegen helfen kann.
Ich habe eine ListBox mit verschiedenen Namen in einer Spalte und Teilnehmerurkunden in der anderen Spalte. Da es recht viele Namen sind wollte ich auch eine Suchfunktion einbauen, welche dann das einzelne Ergebnis, also die Person mit Anzahl Teilnehmerurkunde in die ListBox zu sehen ist.

Private Sub CommandButton6_Click()
Dim Name As String
Dim Zeile As Long
Dim ZeileMax As Long
ZeileMax = Tabelle4.Cells(Rows.Count, 6).End(xlUp).Row
Name = InputBox("Bitte Name eingeben (NachnameVorname) - ohne Leerzeichen dazwischen!", " _
Namenseingabe", "NachnameVorname")
For Zeile = 2 To ZeileMax
If Tabelle4.Cells(Zeile, 6).Value = Name Then
UserForm1.ListBox1.RowSource = Tabelle4.Range(Cells(Zeile, 6), Cells(Zeile, 7))
Exit Sub
End If
Next Zeile
MsgBox "Teilneher konnte nicht gefunden werden!", vbCritical, "Achtung"
End Sub

Das Problem ist, dass ich nicht weiß, wie ich die RowSource richtig eingebe... normalerweise würde ja bspw. UserForm1.ListBox1.RowSource = "Tabelle4!F2:G" & ZeileMaxListBox da stehen, was auch super funktioniert.
Vielen lieben Dank für Hilfreiche Kommentare.
Viele Grüße

Hallo Max,
teste mal:

Private Sub CommandButton6_Click()
    Dim strName As String, strFirstAddress As String
    Dim objZelle As Range

    strName = InputBox("Bitte Name eingeben (NachnameVorname) - ohne Leerzeichen dazwischen!", _
        "Namenseingabe", "NachnameVorname")

    If strName <> vbNullString And StrPtr(strName) <> 0 Then

        ListBox1.RowSource = vbNullString
        Call ListBox1.Clear

        Set objZelle = Tabelle4.Columns(6).Find(What:=strName, _
            LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

        If Not objZelle Is Nothing Then

            strFirstAddress = objZelle.Address

            Do

                With ListBox1
                    .AddItem objZelle.Text
                    .List(0, 1) = objZelle.Offset(0, 1).Text
                End With

                Set objZelle = Tabelle4.Columns(6).FindNext(After:=objZelle)

            Loop Until objZelle.Address = strFirstAddress

            Set objZelle = Nothing

        Else
            MsgBox "Teilneher konnte nicht gefunden werden!", vbCritical, "Achtung"
        End If
    End If
End Sub

Gruß
Nepumuk

ListBox RowSource mit Variabler Zeile

Forumthread: ListBox RowSource mit Variabler Zeile

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial