Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbooks

Forumthread: Workbooks

Workbooks
06.03.2003 12:38:38
Andi_H
Hallo zusammen,

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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Workbooks
06.03.2003 12:53:30
Bernd Held

Hallo 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.

Sub KopfUndFuß()
Dim Tabelle As Worksheet
Dim i  As Long
Const verz = "c:\Eigene Dateien\"

On Error Goto fehler
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

fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub

     Code eingefügt mit Syntaxhighlighter 1.14

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen mit Leseprobe(PDF) unter: http://held-office.de



Anzeige
Re: Workbooks
06.03.2003 13:10:35
Andi_H

klasse, klappt.

vielen dank

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige