Gleiche Werte zb. in Zeile 7, Spalte E,G,I,K
Zu findender Wert wäre 101, und zu ersetzen durch 102
Vielen Dank im Voraus.
Sub Makro1()
' Makro1 Makro
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = msoTrue
Next i
Range("J:J,E:E,A:A").Select
Range("A1").Activate
Selection.Replace What:="101", Replacement:="102", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub