von Suche nach Datum auf Textssuche umstellen VBA
Suche
untenstehende Codes kamen mit Eurer Mitwirkung zustande und bewirken, dass mir sämtliche Datensätze innerhalb einer Arbeitsmappe, in denen das jeweils gesuchte Datum steht, in eine neue Arbeitsmappe kopiert werden und dort angezeigt werden.
Wie stelle ich die beiden Codes um, wenn ich anstelle der Datumssuche eine freie Textsuche, möglichst mit * als Jokerzeichen, starten möchte? - Danke auch jetzt schon wieder für Eure Mitwirkung.
Gruß - Wolfgang Berger
Hier die beiden Codes für Suche mittels Datum:
Private Sub cmdSearch_Click()
If txtSearch.Text = "" Then Exit Sub
Call MultiSuche(CDate(Me.txtSearch))
End Sub
Sub MultiSuche(strSearch As Date)
Dim wks As Worksheet
Dim rngFind As Range
Dim lngRow As Long
Dim strFind As String
Dim wb As Workbook
Set wb = Workbooks.Add(1)
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 _
wb.Sheets(1).Cells(lngRow, 1)
Set rngFind = wks.Cells.FindNext(After:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
Next wks
End Sub
Anzeige