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ß TinoDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen