Eingrenzen der Spalten
Ronald
Folgenden Script habe ich zum Ersetzten von Werten erhalten. Er funktioniert auch einwandfrei.
Dim rngX As Range
With Sheets(AktTabelle)
Set rngX = .Range("a1").Find("a")
Cells.Replace What:=.Range("C3"), Replacement:=.Range("C4"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End With
Danke für einen Tipp
Gruss
Ron
Anzeige