Hi Tic,ja, klar, kein Problem:Sub FormelErsetzen()Dim sstr As StringDim Zelle As RangeFor Each Zelle In ActiveSheet.UsedRangesstr = Zelle.FormulaLocalsstr = Application.Substitute(sstr, "=SUMME", "=MAX")Zelle.Value = sstrNext ZelleEnd SubViele GrüßeBerndDie MacHero EXCEL HomepageUnd falls Sie in Ruhe offline VBA lernen möchten:Excel-VBA-Programmierung-Kompendium

geschrieben von Bernd Held , 18.01.2001, 11:29 Uhr , 23 mal gelesen