hab heute ein super Makro hier im Archiv gefunden, dass alle Tabellen meiner Datei nach einem bestimmten Inhalt durchsucht. Die Übereinstimmung wird angezeigt. Hier meine Frage:
Ist es möglich, dass die Zelle in der sich die Übereinstimmung befindet und die Nachbarzelle (nach rechts) sich gelb färben (eine Art Highlight). Bewegt man sich von der Zelle weg, soll die gelbe Färbung sich aufheben? Das Makro sieht so aus:
Sub DatenSuchen(control As IRibbonControl)
Dim Zelle As Range
Dim Blatt As Worksheet
Dim str As String
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.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 "Es wurde keine Übereinstimmung gefunden!"
End Sub
Danke für eure Hilfe
Gruß
Martin