Office: Wert mehrfach in allen Tabellen suchen

freundliches Hallo an alle VBA Freaks,

ich habe nach langem hin- und herprobieren eine Frage zu folgendem Code:

wie muß ich den ändern um den Suchwert mehrfach zu suchen.
Er kann nicht mehr wie in diesem Code angenommen nur einmal sondern nun auch mehrfach in einer oder mehreren Tabellen vorkommen.
Ich bekomme es einfach nicht gebacken.

Vielen Dank für Eure Mühe im Voraus.

strSuchbegriff = InputBox("welche Schmelze ?")

For loTabelle = 2 To Worksheets.Count
With Worksheets(loTabelle).Columns(5)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
Worksheets(loTabelle).Activate
Zeile = raZelle.Row
Daten = Range(Cells(Zeile, 1), Cells(Zeile, 100))

Worksheets(Suchergebnisse).Activate
Zeilemax = ActiveSheet.Cells(65536, 1).End(xlUp).Row + 1

Range(Cells(Zeilemax, 1), Cells(Zeilemax, 100)) = Daten
Zeilemax = 0
End If
End With
Next loTabelle

If Zeile = 0 Then
MsgBox "Leider nichts gefunden"
End If

:)

 

Hi Hilmar,

schau dir mal die VBA-Hilfe zum Stichwort FindNext-Methode an.

 

Hallo Karin,

vielen Dank bis hierher, aber nachdem ich die do Schleife eingefügt habe
sucht er in den Tabellen korrekt jedoch nur 1 Wert und zeigt nicht alle wenn sie denn mehrfach in 1 Tabelle vorkommen.

Was ist da nur falsch?

strSuchbegriff = InputBox("welche Schmelze ?")

For loTabelle = 2 To Worksheets.Count
With Worksheets(loTabelle).Columns(5)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
Worksheets(loTabelle).Activate
Zeile = raZelle.Row
Daten = Range(Cells(Zeile, 1), Cells(Zeile, 100))
Probe = Range(Cells(Zeile, 1), Cells(Zeile, 1))
Worksheets(Suchergebnisse).Activate
Zeilemax = ActiveSheet.Cells(65536, 1).End(xlUp).Row + 1

Range(Cells(Zeilemax, 1), Cells(Zeilemax, 100)) = Daten
Worksheets(loTabelle).Activate
Do
Set raZelle = .FindNext(raZelle)

Probe2 = Range(Cells(Zeile, 1), Cells(Zeile, 1))
Loop While Not raZelle Is Nothing And Probe2 Probe


End If
End With
Next loTabelle

 

Hi Hilmar,

ich muss jetzt leider weg und habe deshalb keine Zeit, den folgenden Code an deine konkreten Bedingungen anzupassen, aber vielleicht hilft er dir trotzdem als Anregung weiter:

Code:

Gesucht wird ein per InputBox vorgegebener Begriff im benutzen Bereich aller Tabellen und wenn er gefunden wurde, wird die betreffende Zelle gelb formatiert.

 

Hallo Karin,

tausend Dank für Deine Hilfe.
Meine Reaktion kommt etwas spät aber dafür kam ich mit dem Beispiel gut zurecht.*cool.gif*