Ich möchte im Bereich C10:W60 die Werte wenn vorhanden {1400mm/50my} und {1400mm/80my} löschen.
Sheets("1").Range("C10:W60").ClearContents
Wie müsste der Code bitte genau aussehen.
Danke
SG, Heinz
Dim RNG As Range
Dim Str1 As String, Str2 As String
Set RNG = Range("C10:W60")
Str1 = "{1400mm/80my}"
Str2 = "{1400mm/50my}"
RNG.Replace What:=Str1, Replacement:="", LookAt:=xlPart
RNG.Replace What:=Str2, Replacement:="", LookAt:=xlPart
LG UweD