Guten Morgen,
mit einer Mappe habe ich noch ein paar Probleme. Leider komme ich nicht weiter.
Leider bekomme ich es nicht mehr hin die Mappe vom Mac aus hoch zu laden, daher hab ich meinen Code hier eingesetzt.
wenn ich in diesem Beispiel der Name “Peter“ als Suchbegriff eingebe, wird nur eine Zelle gelb gefärbt. Peter ist aber auf diese Tabelle 3-mal vorhanden. Es müssen alle Zellen wo Peter steht gelb gefärbt seien.
Wenn ich jetzt einen anderen Suchbegriff eingebe, müssen die Zellen “Peter“ wieder Weiß sein.

Gruß Nico

Sub SucheNachName()

If Range("E2") = "" Then

MsgBox "Es wurde kein Suchbegriff eingegeben.", vbCritical

Else


Dim suchbereich As Range, gefundeneZelle As Range
Dim suchbegriff As String

' Definiere den Suchbereich
Set suchbereich = ThisWorkbook.Sheets("Tabelle1").Range("B4:J43")

' Definiere den Suchbegriff
suchbegriff = Range("E2")

' Suche nach dem Name im definierten Bereich
Set gefundeneZelle = suchbereich.Find(What:=suchbegriff, LookAt:=xlWhole)

' Überprüfe, ob der Name gefunden wurde
If Not gefundeneZelle Is Nothing Then

'Färbe die Zelle ein
gefundeneZelle.Interior.ColorIndex = 6 ' Gelb färben

Else

' Gib eine Nachricht aus, wenn der Name nicht gefunden wurde
MsgBox "Der Name '" & suchbegriff & "' wurde nicht gefunden."
End If
End If
End Sub