Eintrag Suchen in allen Tabellen

Thommy · 1970-01-01T00:00:00+00:00

Sehr geehrtes Forum! Ich muß wiedermal Eure Hilfe bzw. Euer Wissen beanspruchen! ;-) Wir haben eine Excel-Datei mit ca. 100 Tabellen! Jetzt haben wir das Problem, daß in 1 Tabelle davon ein gewisser Eintrag steht! Ich weiß zwar, wie der Eintrag lautet, nur weiß ich nicht, in welcher Tabelle sich dieser Eintrag befindet!!? Gibs da eine Möglichkeit per Bearbeiten-Suchen? oder per VBA? Bedank mich schon jetzt für die Infos. lg Thommy

Hallo Thommy
ich bin kein Programmierer ,aber ein Sammler des Forums.


Sub allesSuchen()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Suchtext eingeben:", "Suche", "Was wird gesucht")
If sFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlValues)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
'wks.Activate
Application.GoTo rng, False
If MsgBox( _
prompt:=sFind & ": wurde in " & wks.Name & " gefunden:" & vbLf & vbLf & _
"[ " & Cells(rng.Row, 1) & " ] [ " & Cells(rng.Row, 2) & " ] [ " & _
Cells(rng.Row, 3) & " ] [ " & Cells(rng.Row, 4) & " ]", _
Buttons:=vbRetryCancel + vbQuestion _
) = vbCancel Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Suche nach "" " & sFind & " "" wurde beendet!", _
Buttons:=vbOKOnly + vbExclamation
End Sub

Hallo Thommy
ich bin kein Programmierer ,aber ein Sammler des Forums.


Sub allesSuchen()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Suchtext eingeben:", "Suche", "Was wird gesucht")
If sFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlValues)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
'wks.Activate
Application.GoTo rng, False
If MsgBox( _
prompt:=sFind & ": wurde in " & wks.Name & " gefunden:" & vbLf & vbLf & _
"[ " & Cells(rng.Row, 1) & " ] [ " & Cells(rng.Row, 2) & " ] [ " & _
Cells(rng.Row, 3) & " ] [ " & Cells(rng.Row, 4) & " ]", _
Buttons:=vbRetryCancel + vbQuestion _
) = vbCancel Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Suche nach "" " & sFind & " "" wurde beendet!", _
Buttons:=vbOKOnly + vbExclamation
End Sub

Forumthread: Eintrag Suchen in allen Tabellen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial