Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige