Ordner durchsuchen
13.05.2008 13:01:19
Manfred
habe dieses tolle Makro hier aus dem Forum.
Kann mir jemand sagen wie ich das Makro so umbaue daß es mir einen übergeordneten Ordner durchsucht ?
Sub alles_Durchsuchen()
'by Ramses
'Sucht in der gesamten Mappe nach einem Begriff und kopiert die
'gefundene Zeile in eine zu definfierende Ergebnistabelle "Suchergebniss"
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
'Suchbegriff
Dim sFind As Variant
Dim cr As Long, tarWks As String
'Name_der_Zieltabelle
'Bitte Anpassen !!!!
tarWks = "Suchergebnis"
With Worksheets(tarWks)
If .Cells(.Rows.Count, 1) "" Then MsgBox "Zielltabelle voll": Exit Sub
cr = .Cells(.Rows.Count, 1).End(xlUp).Row
'If cr = 1 And .Cells(1, 1) = "" Then cr = 0
If cr tarWks Then
Set rng = wks.Cells.Find(what:=sFind, lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.GoTo rng, True
cr = cr + 1
wks.Rows(rng.Row).Copy Destination:=.Rows(cr)
Set rng = wks.Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End With
Sheets("Suchergebnis").Select
Range("H2").Select
End Sub
Mit freundlichen Grüßen
Manfred
