Tabelle mit Fin durchsuchen
28.08.2018 14:27:21
Frank
ich suche in einer Tabelle mit über 100ß Einträgen nach Stichworten.
Die Variable SearchStr ist aus einem String mit wildcard zusammengesetzt("*text*")
Beim Durchsuchen wird der erste Treffer auch zurückgegeben.
Diesen kopiere ich dann in ein anderes Tabellenblatt.
Beim
Set Ergebnis = .FindNext(SearchStr)
Wo liegt mein Fehler?
Vorab vielen Dank
Gruß
Frank
Hier noch der Codeschnipsel
Set Ergebnis = Sheets(1).Range("A1:D" & CellCount) _
.Find(SearchStr, LookAt:=xlWhole, LookIn:=xlValues)
If Not Ergebnis Is Nothing Then
ersteAdresse = Ergebnis.Address
i = Mid(ersteAdresse, InStrRev(ersteAdresse, "$") + 1)
i = Val(i)
With wksZ
wksQ.Range(wksQ.Cells(i, 1), wksQ.Cells(i, 4)).Copy
wksZ.Range(wksZ.Cells(z + 1, 1), wksZ.Cells(z + 1, 4)).PasteSpecial Paste:= _
xlPasteAll
z = z + 1
End With
Do
Set Ergebnis = .FindNext(SearchStr)
wksQ.Range(wksQ.Cells(i, 1), wksQ.Cells(i, 4)).Copy
wksZ.Range(wksZ.Cells(z + 1, 1), wksZ.Cells(z + 1, 4)).PasteSpecial Paste:= _
xlPasteFormats
Loop While Not Ergebnis Is Nothing And Ergebnis.Address ersteAdresse
End If