VBA-Beispiel 016
mail schreiben
mail schreiben

alle Tabellen durchsuchen

Dieses Makro durchsucht alle Tabellen der aktiven Mappe nach dem Suchbegriff.
Sub suchen_alle_Tabellen_UsedRange()
Dim suche As String
Dim z As Long
Dim Zelle As Range
Dim Blatt As Worksheet

suche = InputBox("wonach wollen Sie suchen?", , "Schröder")

z = 0
If suche = "" Then Exit Sub

For Each Blatt In ActiveWorkbook.Worksheets
  For Each Zelle In Blatt.UsedRange
    If Zelle = suche Then
      z = z + 1
      Zelle.EntireRow.Interior.ColorIndex = 35
    End If
  Next Zelle
Next Blatt

MsgBox suche & " wurde " & z & " mal gefunden."

End Sub

Download:   vba016.zip