søg i ark og opdatere værdier

Dim filmsti As String, filmid As String 'Definere de text strenge vi skal bruge
Dim wrkbok As Workbook 'angiver hvilken workbook vi skal arbejde med
Dim srksheet As Worksheet 'angiver hvilken worksheet vi skal arbejde med
'Dim antalretur As Integer ' Definere en varialbe til at gemme antal vi skal opdater med
ThisWorkbook.Activate ' aktivere denne workbook så vi er sikre på at få den rigtige værdi
Worksheets(1).Activate

filmsti = Trim(Range("D1").Value)

Workbooks.Open Filename:=filmsti, ReadOnly:=True

'Workbooks(film.xls).Worksheets(1).Activate



Range("A1").Select
   
Cells.Find(What:="1001", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
      :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
Range("C2").Select
ActiveCell.Value = (ActiveCell.Value + 1)