Avatar billede axel21 Juniormester
30. maj 2016 - 21:33

Celler vil ikke "genberegne" efter kørsel af Søg/Erstat i VBA

Hej,

Jeg har "lavet" en kode hvor jeg kører en Søg/Erstat på nogle celler, og har i den forbindelse 2 spørgsmål:

1) Kan man indsætte en Range så den kun kører Søg/Erstat på celler i kolonne G startende fra række 51?

2) Når jeg har kørt scriptet retter den fint mine celler fra "may" til "05" og "oct" til "10". Problemet opstår når scriptet har kørt og der er nogle formler i arket der skal beregne nogle tal ud fra disse datoceller jeg har rettet i. Men den opdaterer kun beregningscellerne hvis jeg trykker "Enter" i selve cellen. Jeg har tjekket om genberegning er slået til i Excel og det er det. For nemhedens skyld har jeg lagt et link til mit problem i en lettere redigeret udgave.
 
https://www.dropbox.com/s/nvcasqjojj1dyuo/SogErstat.xltm?dl=0

Herunder min kode i VBA, denne findes også i arket.

Sub Tester1()

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("may", "oct")
rplcList = Array("05", "10")

'Loop through each item in Array lists
  For x = LBound(fndList) To UBound(fndList)
    'Loop through each worksheet in ActiveWorkbook
      For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
       
      Next sht
 
  Next x

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester