Suchfunktion via Userform bei mehreren Treffern

Hallo Excel Gemeinde,

ich habe mir mithilfe der Google Suche u. ä. eine Suchfunktion per Userform zusammen gebastelt.
Nachdem ich kurz stolz auf meine Leistung war, musste ich feststellen, dass die Suchfunktion eine entscheidene Schwachstelle aufweist.
Gesucht wird nach dem Familiennamen. Wird ein Suchergebniss gefunden, zeigt er in den Textboxen die zum Suchbegriff zugehörigen Ergebnisse korrekt an.
Natürlich kann es vorkommen, dass ein Nachname nicht einzigartig ist. Und da liegt jetzt das Problem.
Die Combobox, in der die Suchergebnisse angezeigt werden, zeigen mir auch alle Einträge an gleichen Nachnamen an.
Aber die Textboxen werden mit den zugehörigen Informationen beziehen sich immer nur auf den ersten Eintrag in der Combobox.
Wähle ich einen anderen Nachnamen, werden die Textboxen nicht aktualisiert. Ich bin schon relativ weit mit der Datei und hoffe, dass ich nicht wieder alles ändern muss.
Die Datei könnte ich natürlich hochladen, wenn es gewünscht ist.
Zudem habe ich zwei Punkte noch nicht ganz hinbekommen. Die zugehörige E-Mail Adresse bekomme ich einfach nicht auf zwei Textboxen aufgesplittet, warum auch immer.
Und die zum Mitglied zugehörige IBAN möchte ich gern entsprechend der Anzahl der "Böcke" (6) aufteilen auf eben secht Textboxen in der Userform "Suche".
Ich hoffe jemand hat eine Idee und kann mir helfen.

Viele Grüße
Alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub BoxenLaden() Dim i&, tmp, iZeile&: iZeile = ComboBoxTreffer.ListIndex For i = 0 To UBound(arrBoxen) Controls(arrBoxen(i)) = arrList(iZeile + 1, i + 1) Next i tmp = Split(arrList(iZeile + 1, 8), "@") TextBoxEMail1 = tmp(0) TextBoxEMail2 = tmp(1) TextBoxMitgliedsnummer1 = Format(arrList(iZeile + 1, 10), "000") TextBoxIBAN1 = Left(arrList(iZeile + 1, 9), 4) TextBoxIBAN2 = Mid(arrList(iZeile + 1, 9), 5, 4) TextBoxIBAN3 = Mid(arrList(iZeile + 1, 9), 9, 4) TextBoxIBAN4 = Mid(arrList(iZeile + 1, 9), 13, 4) TextBoxIBAN5 = Mid(arrList(iZeile + 1, 9), 17, 4) TextBoxIBAN6 = Mid(arrList(iZeile + 1, 9), 21, 4) ' ****** ab hier Optionbuttons zuweisen If arrList(iZeile + 1, 11) = "M" Then OB_Maennlich = True Else OB_Weiblich = True End If If arrList(iZeile + 1, 12) = "aktiv" Then OB_Aktiv = True Else OB_Passiv = True End If If arrList(iZeile + 1, 13) = "HV" Then OB_HV = True Else OB_Garde = True End If End Sub

da hatte ich den Fehler an falscher Stelle aufgefangen - ändere die beiden Prozeduren so:



Private Sub ComboboxLaden()

    Dim i&, j&, k&

    If TextBoxSuchbegriff = "" Then

        ComboBoxTreffer.Clear

        ContolsReset

        Exit Sub

    End If

    For i = 1 To UBound(arrTab)

        If InStr(1, arrTab(i, 1), TextBoxSuchbegriff, vbTextCompare) > 0 Then k = k + 1

    Next i

    If k = 0 Then

        ComboBoxTreffer.Clear

        Exit Sub

    End If

    ReDim arrList(1 To k, 1 To UBound(arrTab, 2))

    k = 0

    For i = 1 To UBound(arrTab)

        If InStr(1, arrTab(i, 1), TextBoxSuchbegriff, vbTextCompare) > 0 Then

            k = k + 1

            For j = 1 To UBound(arrList, 2)

                arrList(k, j) = arrTab(i, j)

            Next j

        End If

    Next i

    ComboBoxTreffer.List = arrList

End Sub

und



Private Sub BoxenLaden()

    Dim i&, tmp, iZeile&: iZeile = ComboBoxTreffer.ListIndex

    If ComboBoxTreffer.ListIndex = -1 Then

        ContolsReset

        Exit Sub

    End If

    For i = 0 To UBound(arrBoxen)

        Controls(arrBoxen(i)) = arrList(iZeile + 1, i + 1)

    Next i

    If arrList(iZeile + 1, 8) > "" Then

        tmp = Split(arrList(iZeile + 1, 8), "@")

        TextBoxEMail1 = tmp(0)

        TextBoxEMail2 = tmp(1)

    End If

    TextBoxMitgliedsnummer1 = Format(arrList(iZeile + 1, 10), "000")

    TextBoxIBAN1 = Left(arrList(iZeile + 1, 9), 4)

    TextBoxIBAN2 = Mid(arrList(iZeile + 1, 9), 5, 4)

    TextBoxIBAN3 = Mid(arrList(iZeile + 1, 9), 9, 4)

    TextBoxIBAN4 = Mid(arrList(iZeile + 1, 9), 13, 4)

    TextBoxIBAN5 = Mid(arrList(iZeile + 1, 9), 17, 4)

    TextBoxIBAN6 = Mid(arrList(iZeile + 1, 9), 21, 4)

    ' ****** ab hier Optionbuttons zuweisen

    If arrList(iZeile + 1, 11) = "M" Then

        OB_Maennlich = True

    Else

        OB_Weiblich = True

    End If

    If arrList(iZeile + 1, 12) = "aktiv" Then

        OB_Aktiv = True

    Else

        OB_Passiv = True

    End If

    

    If arrList(iZeile + 1, 13) = "HV" Then

        OB_HV = True

    Else

        OB_Garde = True

    End If

End Sub

Auf die Schnelle ist mir erst mal nichts weiter aufgefallen, was Fehler verursachen kann. Nur so viel noch dazu:
Wenn möglich - vermeide On Error. Es gibt fast immer besseren Weg zur Fehlerbehandlung.
https://www.herber.de/bbs/user/167543.xlsm

Gruß Uwe

Private Sub CB_AenderungenSpeichern_Click() Dim rngZeile As Range, Nr&, i& Nr = CDbl(TextBoxMitgliedsnummer1) With Tabelle1 Set rngZeile = .Columns(10).Find(Nr, LookAt:=xlWhole) If Not rngZeile Is Nothing Then For i = 0 To UBound(arrBoxen) .Cells(rngZeile.Row, i + 1) = Controls(arrBoxen(i)) Next i End If End With End Sub

Private Sub CB_AenderungenSpeichern_Click() Dim rngZeile As Range, Nr&, i&, varFilter$, iIndex: iIndex = ComboBoxTreffer.ListIndex Nr = CDbl(TextBoxMitgliedsnummer1) With Tabelle1 Set rngZeile = .Columns(10).Find(Nr, LookAt:=xlWhole) If Not rngZeile Is Nothing Then For i = 0 To UBound(arrBoxen) - 1 .Cells(rngZeile.Row, i + 1) = Controls(arrBoxen(i)) Next i .Cells(rngZeile.Row, 8) = TextBoxEMail1 & "@" & TextBoxEMail2 .Cells(rngZeile.Row, 9) = TextBoxIBAN1 & TextBoxIBAN2 & TextBoxIBAN3 & TextBoxIBAN4 & TextBoxIBAN5 & TextBoxIBAN6 .Cells(rngZeile.Row, 13) = Controls(arrBoxen(6)) If OB_HV = True Then .Cells(rngZeile.Row, 11) = "HV" If OB_Garde = True Then .Cells(rngZeile.Row, 11) = "Garde" If OB_Aktiv = True Then .Cells(rngZeile.Row, 12) = "aktiv" If OB_Passiv = True Then .Cells(rngZeile.Row, 12) = "passiv" If OB_Maennlich = True Then .Cells(rngZeile.Row, 15) = "M" If OB_Weiblich = True Then .Cells(rngZeile.Row, 15) = "W" End If End With varFilter = TextBoxSuchbegriff ListeLaden ControlsReset TextBoxSuchbegriff = varFilter ComboBoxTreffer.ListIndex = iIndex End Sub

Beliebteste Forumthreads (12 Monate)

Suchfunktion via Userform bei mehreren Treffern

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchfunktion via Userform bei mehreren Treffern

34 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)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread