Gefundene Zelle ansprechen
09.02.2022 11:29:05
kwaki
ich möchte eine Range nach einem Wort durchsuchen. Wenn das Wort auftaucht, soll die entsprechende Zelle markiert werden, also zB min Rot hinterlegt werden.
Wie kann ich die gefundene Zelle ansprechen?
Dim Bereich As Range
Set Bereich = Range(Cells(4, 3), Cells(64, 8)).Find("Test", lookat:=xlPart, LookIn:=xlValues, MatchCase:=True)
If Not Bereich Is Nothing Then
MsgBox "Das Wort Test ist in Verwendung. Entsprechende Zelle ist rot gefärbt."
Else
MsgBox "Keine Verwendung des Wortes"
End If