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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton6_Click() Dim Name As String, raFund As Range Name = InputBox("Bitte Name eingeben (NachnameVorname) - ohne Leerzeichen dazwischen!", _ "Namenseingabe", "NachnameVorname") If Not Name = vbNullString And Name "NachnameVorname" Then Name = Replace(Name, " ", "") With Tabelle4 Set raFund = .Columns(6).Find(what:=Name, LookIn:=xlValues, lookat:=xlWhole) If Not raFund Is Nothing Then UserForm1.ListBox1.RowSource = raFund.Resize(, 2).Address Else MsgBox "Teilneher konnte nicht gefunden werden!", vbCritical, "Achtung" End If End With End If Set raFund = Nothing End Sub

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

Beliebteste Forumthreads (12 Monate)

ListBox RowSource mit Variabler Zeile

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ListBox RowSource mit Variabler Zeile

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread