Gruppe
Datei
Problem
Wie kann ich in allen Arbeitsmappen eines vorgegebenen Verzeichnisses im aktiven Blatt die Zelle A1 ändern, die Mappen speichern und wieder schließen?
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