ich habe ca. 200 Workbooks. Diese sollen alle mittels VBA geändert werden, dies klappt auch. Leider weiß ich nicht wie ich all 200 wbs auf einmal ansprechen kann.
Wer kann mir weiter helfen???
Vielen Dank
gruesse andi
ich habe ca. 200 Workbooks. Diese sollen alle mittels VBA geändert werden, dies klappt auch. Leider weiß ich nicht wie ich all 200 wbs auf einmal ansprechen kann.
Wer kann mir weiter helfen???
Vielen Dank
gruesse andi
das geht m.E. nach nur eines nach dem anderen. Das folgende Makro öffnet nacheinander alle Mappen in einem Verzeichnis und stellt die Kopf- und Fußzeile einheitlich ein.
On Error Goto fehler fehler:Sub KopfUndFuß()
Code eingefügt mit Syntaxhighlighter 1.14
Dim Tabelle As Worksheet
Dim i As Long
Const verz = "c:\Eigene Dateien\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
.LeftHeader = Application.UserName
.CenterHeader = "Held-Office"
.RightHeader = ActiveWorkbook.BuiltinDocumentProperties(11)
.LeftFooter = ActiveWorkbook.FullName
.CenterFooter = Tabelle.Name
.RightFooter = "Seite &P von &N Seiten"
End With
Next Tabelle
ActiveWorkbook.Close savechanges:=True
Next i
End With
Exit Sub
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen mit Leseprobe(PDF) unter: http://held-office.de
vielen dank