Kan ikke få et loop til at virke!
Hej'saHåber der er nogen der kan hjælpe mig med nedenstående kode.
Jeg er helt ny i VBA og kan ikke helt gennemskue hvorfor koden ikke vil loope gennem alle ark i min excel fil.
Opgaven er flg.
På "forsiden" skal søg og erstat funktionen hente den værdi der skal søges og den værdi der skal erstattes. forsiden bruges som en slags logbog over rettelser på de øvrige ark, der må derfor ikke søges og erstattes på den side.
Der er 17 ark der skal gennemgås, tælleren virke godt nok!
Bonus spørgsmål:
Kan man få "highligtet" den værdi der er erstattet på alle ark med en farve?
Public Sub Søg_og_erstat()
Dim ws As Worksheet
Dim ws_count As Integer
Dim I As Integer
ws_count = ActiveWorkbook.Worksheets.Count
For I = 2 To ws_count
Cells.Replace What:=Sheets("forside").Range("b2"), Replacement:=Sheets("forside").Range("c2"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next I
End Sub
På forhånd tak for jeres hjælp!