Eintrag Suchen in allen Tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub DatenSuchenInGanzerArbeitsmappe() Dim Zelle As Range Dim Blatt As Worksheet Dim str As String str = InputBox _ ("Bitte geben Sie den Suchbegriff ein!") If str = "" Then Exit Sub 'Suche wird nicht begonnen For Each Blatt In ActiveWorkbook.Sheets Blatt.Activate ActiveSheet.UsedRange.Select For Each Zelle In Selection If Zelle = str Then Zelle.Select Exit Sub End If Next Zelle Next Blatt MsgBox "Suchbegriff nicht gefunden!" End Sub Tschüs H.W

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

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

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

205 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eintrag Suchen in allen Tabellen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

205 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread