uppsala,
mir ist eben eingefallen, dass der Suchbegriff in einer Tabelle ja mehrfach
vorkommen kann, deshalb dieses Makro verwenden:
Sub SuchenÜberMehrereDateien()
Dim such, wb, sh, gefunden, msg, treffer As Boolean
such = InputBox("Suchbegriff?")
For wb = 1 To Workbooks.Count
For sh = 1 To Workbooks(wb).Sheets.Count
With Workbooks(wb).Sheets(sh)
Set gefunden = .Cells.Find(what:=such, lookat:=xlWhole)
If Not gefunden Is Nothing Then
firstaddress = gefunden.Address
treffer = True
msg = such & " gefunden in " & vbCrLf & _
Workbooks(wb).Name & vbCrLf & _
Workbooks(wb).Sheets(sh).Name
MsgBox msg & vbCrLf & gefunden.Address(0, 0)
Do
Set gefunden = .Cells.FindNext(After:=.Range(gefunden.Address))
If gefunden.Address = firstaddress Then Exit Do
MsgBox msg & vbCrLf & gefunden.Address(0, 0)
Loop
End If
End With
Next
Next
If Not treffer Then MsgBox such & " nicht gefunden"
End Sub
Wenn der Suchbegriff auch als Teil eines Zellinhaltes angezeigt werden soll,
muß es lookat:=xlPart anstatt lookat:=xlWhole heißen.
stefan
Post by Stefan Onkenhallo Arthur,
das kann sich ja ändern ;o)
wechsle in den VBA-Editor (über Extras/Makro/Visual Basic-Editor)
füge ein Modul ein (Einfügen/Modul)
in das große Codefenster kopierst du das Makro
Editor beenden (über Datei/schließen und zurück oder über das X oben rechts)
Makro aufrufen über Extras/Makro/Makros
Wenn du das Makro häufig brauchst, solltest du die Datei mit dem Makro im
XLSTART-Ordner des Office-Verzeichnis abspeichern (Dateien in diesem Ordner
werden bei jedem Excel-Start mit gestartet).
Gruß
stefan
Post by Arthur Brehmcool, danke.. aber wie füge ich das makro ein?
ich hab so garkeine ahnung von excel *seufz*
--
___________________________________________________________