Insidern wird der untenstehende Code bekannt vorkommen.- Konnte ich ihn doch gestern mit Hinweisen von Ulf umstellen, um eine Textsuche vorzunehmen (Danke hierfür nochmals).- Nun fällt mir auf, dass es sinnvoll ist, wenn die neu angelegte Arbeitsmappe bzw. das Tabellenblatt automatisch mit einem Namen versehen wird.
Das Suchtextfeld aus der UF enthält ja den gesuchten Begriff.- Wie kann ich realisieren, dass der Suchbegriff aus dem Textfeld (txtSearch) automatisch als Name für die neue Arbeitsmappe bzw. das Arbeitsblatt vergeben wird? - Danke schon jetzt wieder für Eure Mitwirkung und sicherlich guten Hinweise.
Gruß - Wolfgang Berger
*ähnlicher Code existiert auch für die Textsuche*
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