Gruppe
Datei
Bereich
Verzeichnis
Thema
Arbeitsmappen eines Verzeichnisses ändern
Problem
Wie kann ich in allen Arbeitsmappen eines vorgegebenen Verzeichnisses im aktiven Blatt die Zelle A1 ändern, die Mappen speichern und wieder schließen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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