hatte mich gestern bereits mit meinem Problem a.d. Forum gewandt und zwischenzeitlich selbst mal versucht eine Eingrenzung vorzunehmen. Immer wenn ich innerhalb einer Arbeitsmappe mit untenstehendem Code (den ich nicht zuletzt auch mit Eurer intensiven Mithilfe umstellen konnte)einen Suchlauf nach Datensätzen per Datum starte, funktioniert das nur einmalig. Erneute Versuche werden ignoriert und eine leere Arbeitsmappe wird mir angezeigt. Erst wenn ich Excel vollständig abmelde und neu hochfahre, ist ein weiterer Suchlauf erfolgreich. - Ich habe nun die Vermutung, dass am untenstehenden Code irgendetwas nicht stimmt - denn, solange ich diesen Suchlauf nicht aktiviere und solange somit nicht eine neue Arbeitsmappe generiert wird, läuft alles andere problemlos. Hat jemand eine Idee? - Ist der Code, der ja eine neue Arbeitsmappe mit den gesuchten Datensätzen angzeigt, irgendwie falsch?
Wäre für Eure Mithilfe sehr dankbar.
Gruß - Wolfgang Berger
'Suche nach Datum
Sub MultiSuche(strSearch As Date)
Dim wks As Worksheet
Dim rngFind As Range
Dim lngRow As Long
Dim strFind As String
Workbooks.Add
For Each wks In ThisWorkbook.Worksheets
Set rngFind = wks.Cells.Find(CDate(strSearch))
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
lngRow = lngRow + 1
wks.Range(wks.Cells(rngFind.Row, 2), _
wks.Cells(rngFind.Row, 9)).Copy _
Cells(lngRow, 1)
Set rngFind = wks.Cells.FindNext(After:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
Next wks
End Sub