mit folgendem Macro suche ich in meinen Tabellen und das Gefundene wird angezeigt und gelb hinterlegt (Danke an fcs). Es funktioniert wunderbar, nur ich möchte nicht in allen Tabellen soindern nur in den Worksheets 2 - 7. Was muss an der Programmierung ändern damit es hinhaut?
Option Explicit
Public ZelleColor As Range, Color1 As Long, Color2 As Long, Color3 As Long, Color4 As Long
Sub DatenSuchen(control As IRibbonControl)
'
Sub DatenSuchen()
Dim Zelle As Range
Dim Blatt As Worksheet
Dim str As String
On Error Resume Next
Application.ScreenUpdating = False
str = InputBox("Bitte geben Sie den Namen des gesuchten Kollegen ein!")
If str = "" Then Exit
Sub 'Suche wird nicht begonnen
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Activate
For Each Zelle In Blatt.UsedRange
If Zelle = str Then
Zelle.Select
Set ZelleColor = Zelle
Color1 = Zelle.Interior.ColorIndex
Color2 = Zelle.Offset(0, 1).Interior.ColorIndex
Color3 = Zelle.Offset(0, 2).Interior.ColorIndex
Color4 = Zelle.Offset(0, 3).Interior.ColorIndex
Zelle.Range("A1:D1").Interior.ColorIndex = 6
Exit Sub
End If
Next Zelle
Next Blatt
MsgBox "Es wurde keine Übereinstimmung gefunden!"
Sheets("Main").Select
Application.ScreenUpdating = True
End Sub
Danke
Gruß
Martin