Suchen per vba
02.05.2008 12:03:26
Reinhardt
Code so zu verändern, das der Cursor nach jedem gefundenen Suchbegriff
das Blatt und die dazugehörige Zelle vom Cursor "besucht" wird?
Gruß Reinhardt.
Sub suchen_alle_Tabellen_UsedRange()
Dim suche As String
Dim z As Integer
Dim x As Object
Dim Blatt As Object
suche = InputBox("wonach wollen Sie suchen?", , "Suche")
z = 0
If suche = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Worksheets
For Each x In Blatt.UsedRange
If x = suche Then
z = z + 1
End If
Next x
Next Blatt
MsgBox suche & " wurde " & z & " mal gefunden."
End Sub