Guten Morgen,

ich habe ein Problem. Ich habe eine Tabelle (GESAMTBESTAND) mit ca. 65000 Zeilen. Nun habe ich eine Userform mit einer Combobox und einem Button erstellt. Mein VBA-Tool soll nun nach dem Wert der in der Combobox gewählt wird suchen und die Zeile in ein neues Arbeitsblatt kopieren. Die Spalte in der gesucht werden soll ist AW. Der Wert kann auch mehrmals vorkommen.

Mein Code sieht bisher so aus:

Private Sub CommandButton1_Click()

Sheets.Add

Dim Anzahl As Long, AW As Long
Dim SZelle As Range
Dim Suchwert As String

Suchwert = "Combobox1.Value" 'Suchbegriff

Anzahl = Application.WorksheetFunction.CountIf(GESAMTBESTAND.Range("AW:AW"), Suchwert)

For AW = 1 To Anzahl
 If AW = 1 Then
 Set SZelle = GESAMTBESTAND.Range("AW:AW").Find(Suchwert)
 Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
 Else
 Set SZelle = GESAMTBESTAND.Range("AW:AW").FindNext(SZelle)
 Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
 End If


leider kommt jedoch immer eine Fehlermeldung. Woran könnte das liegen?

Danke und beste Grüße,
Phillip