Hej, jag har ett stort Excelark med sammanräkningar av värden i flera kolumner. Nu skall jag ändra och ta bort sammanräkningarna. Men i stället för att manuellt leta upp formeln "=SUMMA(A1:A25)" och vidare nedåt i kolumnen med olika intervall, vill jag hitta en sökfunktion i VBA som kan hitta min formel "=SUMMA(" och sen ta bort den. Jag försöker med instr men jag får inte till det...

For I = 1 to 19000

     If Cells(I,54).HasFormula = True Then

          If Formula = "=SUMMA(" then

               Cells(I,54) = ""

               Cells(I,55) = ""

          End If

     End if

Next I

Hej hej

Om du inte fått till det så är det absolut smidigaste att använda sök/ersätt. Markera kolumn(er) använd tryck sök/ersätt -> avancerat ->

Sök: =summa alternativt =summa*
Ersätt: ""

Se till att söka på blad/formler och att "Matcha hela cellinnehållet" är urbockat

Annars så fungerar instr metoden såhär:

If InStr(1, Cells(i, 54).FormulaLocal, "SUMMA", 1) > 0 then

Börjes metod fungerar den med eftersom .formula ger den engelska motsvarigheten till =summa.

/c