in der zelle A1 steht diese funktion: test("text";25000,48;4;163%;1). nun würde ich gerne die "163%" per makro in "100%" ändern. geht das? und wenn ja, wie bitte?
vielen dank im voraus!
servus
Range("A1").FormulaLocal = "=test(" & Chr(34) & "text" & Chr(34) & ";25000,48;4;100%;1)" _
schreiben?Dim varFormel
varFormel = Split(Range("A1").FormulaLocal, ";")
varFormel(3) = "100%"
Range("A1").FormulaLocal = Join(varFormel, ";")
Gruß TinoSub Makro1()
Selection.Replace What:="163%", Replacement:="100%", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
selection noch durch deinen Range ersetzen und fertig...sub Test_Formel ()
Msgbox Range("A1").FormulaLocal
end sub
Gruß Tino