Der gesuchte Begriff wird rot markiert. Ich brauche eine Funktion, die alles (die farbe) am Ende wieder rückgängig macht. Hier ist das:
Sub Suchen1()
Dim gZelle As Range, sBegriff$
sBegriff = InputBox("Bitte Suchbegriff eingeben:", Application.UserName)
If sBegriff = "" Then Exit Sub
Set gZelle = ActiveSheet.Range("B12:C1347").Find(sBegriff)
If gZelle Is Nothing Then
Beep
MsgBox "Suchbegriff nich gefunden!!!", , Application.UserName
Exit Sub
End If
Do
gZelle.Select
gZelle.Interior.Color = RGB(255, 0, 0)
MsgBox gZelle.Address(False, False)
gZelle.Offset(1).Select
While ActiveCell.Address <> gZelle.Address
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Interior.Color = RGB(255, 0, 0)
If ActiveCell.Address = gZelle.Address Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Wend
Loop
End Sub
Mit freundlichen Grüßen,
mimi15