Is It Possible to Update Cells of Multiple Files?

thank you very very much, antonio!
unfortunately, i'm always getting the error "Path not found", even I am sure that the path is 100% correct.
any ideas?

i've managed to fix the path problem
one more question though: is there a way to define the path to an exact file in excel which shall then be upated?

anyone?

Your question isn't clear.

oh ok, sorry!

i'll try to explain it a little bit more detailed:

   myPath = "C:\..."  'Insert here your path

i'd like the path to be replaced by a variable.
like having the path in cell A1

   myPath = cell A1  'Insert here your path

i'm sure this is rather simple, yet these simple things are sometimes upon me

This should do it

myPath = Range("A1")

hth
Ajay

thank you so much! you just made my day :D
one last question though: how can I update a cell instead of the header?

 Sub CellInHeader()
   Dim ws As Worksheet
   Dim hdr As String
   Dim arrSheets
   Dim myPath As String
   Dim objFso As Object
   Dim myFolder As Object, myFile   As Object
   Dim wb As Workbook, i As Integer
   
   Set objFso = CreateObject("Scripting.FileSystemObject")
   
   'set the array of sheets to be worked on
   'list the sheet names here
   arrSheets = Array("Tabelle1", "Tabelle2", "Tabelle3")
   'folder with files to update
   myPath = Range("A19")  'Insert here your path
   
   'turn off screen updating to speed up the macro
   Application.ScreenUpdating = False
   
   Set myFolder = objFso.GetFolder(myPath).Files
   For Each myFile In myFolder
      Set wb = Workbooks.Open(myFile)
      
      For i = LBound(arrSheets) To UBound(arrSheets)
          Set ws = wb.Sheets(arrSheets(i))
          CELL OF THE OPENED FILE = ActiveWorkbook.Sheets("Tabelle1").Range("=A20")      Next i
      
      wb.Close SaveChanges:=True
   Next
   Application.ScreenUpdating = True
End Sub

I am not sure what you mean by "instead of the header", but following will update/set a cell value:-

Range("A1") = "my value"

hth
Ajay

mhmm, thanks. i thought so, but somehow it doesnt work:
ws.Range("A2") = ActiveWorkbook.Sheets("Tabelle1").Range("=A20")

i dont get an error, but it just doesnt work

replace Range("=A20") with Range("A20")

this didnt work either

i'll post the whole macro once again, maybe you can spot the error? :-/

Sub CellInHeader()
   Dim ws As Worksheet
   Dim hdr As String
   Dim arrSheets
   Dim myPath As String
   Dim objFso As Object
   Dim myFolder As Object, myFile   As Object
   Dim wb As Workbook, i As Integer
   
   Set objFso = CreateObject("Scripting.FileSystemObject")
   
   'set the array of sheets to be worked on
   'list the sheet names here
   arrSheets = Array("Tabelle1", "Tabelle2", "Tabelle3")
   'folder with files to update
   myPath = Range("A19")  'Insert Path
   
   'turn off screen updating to speed up the macro
   Application.ScreenUpdating = False
   
   Set myFolder = objFso.GetFolder(myPath).Files
   For Each myFile In myFolder
      Set wb = Workbooks.Open(myFile)
      
      For i = LBound(arrSheets) To UBound(arrSheets)
          Set ws = wb.Sheets(arrSheets(i))
         
          ws.Range("A2") = ActiveWorkbook.Sheets("Tabelle1").Range("A20")
      Next i
      
      wb.Close SaveChanges:=True
   Next
   Application.ScreenUpdating = True
End Sub

Sorry, I am not sure why this does not work.

ok. still, thanks a lot for your input!!

i've managed to fix the problem! my bad
you can mark this thread as SOLVED. thanks again for all the help, you are great!

You need to mark this thread as SOLVED by editing first post in advanced mode.