Weitersuchen (erneut)

Hallo und guten Morgen,
ich habe hier ein UserForm Formular bei welchem ein Suchbegriff auf einer zweiten Tabelle gesucht und ausgegeben wird. Nun soll nach einer Abfrage per MsgBox die Suche fortgesetzt werden. Trotz viel ausprobieren und nachschlagen im Forumsarchiv kommt mir hier keine einfache Idee, den Code entsprechend einfach zu erweitern. Vieleicht kann mir hier einer mit einer Idee weiterhelfen. Wäre echt spitze.
Ich habe zum besseren Verständniss den derzeitigen Code mal mit hochgeladen.


Private Sub CommandButton12_Click()
z = 2
Do While Cells(z, 3) <> TextBox9.Text
z = z + 1
If z > 10000 Then                                  'Suchbegrenzung
'Message Box Angaben wenn keine Angaben gefunden werden
MsgBox "Keine Daten zum Mitglied " & TextBox9 & " im Jahr " & ComboBox1 & " anzuzeigen. Es sind entweder keine Daten vorhanden oder die Namenseingabe ist nicht korrekt.", vbOKOnly + vbExclamation, "Datenabfrage"
TextBox9.SetFocus                               'Cursor wieder in erste Textbox setzen
Exit Sub
End If
Loop
Cells(z, 3).Select
TextBox3 = Cells(z, 3)                              'Wert ausgeben
ActiveWorkbook.Saved = True                         'Keine Speicherabfrage
ActiveWorkbook.Close                                'Aktive Arbeitstabelle schließen
weiter = MsgBox("Weitersuchen ?", vbYesNo + vbInformation, "Weitersuchen")
If weiter = vbNo Then Exit Sub
End Sub

Vielen Dank schonmal im Voraus bis hierher.
Gruß aus Wuppertal
rainix (Rainer)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer,
sequenzielles Suchen in der Tabelle ist extrem ineffektiv. Entweder du liest den Spalteninhalt in ein Variantarray ein, oder du verwendest die Find-Methode.

'Beispiel 1:
Public Sub test1()
    Dim varArray As Variant, lngIndex As Long, bolgefunden As Boolean
    With Worksheets("Tabelle1")
        varArray = .Range(.Cells(2, 3), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 3))
    End With
    For lngIndex = 0 To UBound(varArray)
        If varArray(lngIndex, 1) = Dein_Suchbegriff Then bolgefunden = True: Exit For
    Next
    If Not bolgefunden Then MsgBox "Nix gefunden", 64, "Info"
End Sub
'Beispiel 2:
Public Sub test2()
    Dim myRange As Range
    With Worksheets("Tabelle1")
        Set myRange = .Columns(3).Find(What:=Dein_Suchbegriff, LookIn:=xlValues, LookAt:=xlWhole)
    End With
    If myRange Is Nothing Then MsgBox "Nix gefunden", 64, "Info"
End Sub

Diese beiden Methode sind tausendmal schneller wie deine. Daher erübrigt sich das weitersuchen.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Weitersuchen (erneut)

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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread