Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub ChangeCellA1()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Workbooks.Open .FoundFiles(iCounter), False
         Range("A1").Value = "Tabelle " & Year(Date)
         ActiveWorkbook.Close savechanges:=True
      Next iCounter
   End With
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Datei und Verzeichnis