Text ersetzen wenn Zelle bestimmte Farbe
01.04.2020 09:27:21
Krausert95
ich habe irgendwie schon alles versucht und auch Google oder das Forum hat mir keine passende Antwort geliefert, daher jetzt auf diesem Weg.
Ich hätte gerne, dass das Makro eine bestimmte Zelle (in meinem Fall J1) auf ihren Farbwert überprüft und wenn er mit einem vorgegebenen Farbwert ( RGB(0, 200, 90) ) übereinstimmt, alle Zellen in denen der Text "RH9" steht durch den Text "x" ersetzt.
So weit bin ich bisher gekommen, bekomme aber immer den Fehler "Ungültiger Prozeduraufruf oder _ ungültiges Argument (Fehler 5)":
Sub TextErsetzen()
If Cells("J1").Interior.Color = RGB(0, 200, 90) Then
Cells.Replace What:="RH9", Replacement:="x", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
End Sub
Danke schonmal für eure Antworten.
Anzeige