Forums Neueste Beiträge
 

Fusszeilen in Exceltabellen einfügen

15/11/2007 - 14:48 von Curt Balluff | Report spam
Hallo NG
ich sitze wieder vor einem Problem.
Ich habe einen Ordner mit ca. 500 Excel-Arbeitsmappen. Jede
Arbeitsmappe enthàlt 2-3 Tabellenblàtter.
Auf dem Tabellenblatt1 ist in der Fußzeile der Dateiname eingetragen
Diese Angabe fehlt auf Tabellenblatt 2 (und 3).
Nun sollen bei allen Tabellenblàttern aller Arbeitsmappen in dem
Verzeichnis nachtràglich die Dateinamen in der Fußzeile eingefügt
werden.
Hat mir jemand einen Tipp, wie ich da vorgehen kann?
Ich freue mich über jeden Hinweis oder Link.
Curt
 

Lesen sie die antworten

#1 stefan onken
15/11/2007 - 16:15 | Warnen spam
hallo Curt,
für so etwas kann man ein (VBA) Makro nutzen. Folgendes geht für Excel
2002 und 2003.
Erstelle eine neue Exceldatei, wechsle mit Alt+F11 in den VBA-Editor,
klicke auf Einfügen/Modul. In das große Codefenster kopierst du
dieses:

Sub FusszeilenEinrichten()
Dim fd, i
Set fd = Application.FileDialog _
(msoFileDialogFolderPicker)
If fd.Show() = True Then
With Application.FileSearch
.LookIn = fd.SelectedItems(1)
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
For Each sh In ActiveWorkbook.Worksheets
sh.PageSetup.CenterFooter = "&F"
Next
ActiveWorkbook.Close True
Next
End If
End With
End If
End Sub

Beende den Editor (Alt+F11).

Das Makro kannst du dann über Extrs/Makro/Makro starten. Nach dem
Start erscheint ein Dialog, in dem du ein Verzeichnis auswàhlen musst,
in dem deine Dateien sind. Unterverzeichnisse werden ebenfalls
durchsucht und die Fusszeile gesetzt!
Am besten testet du das Makro erstmal an ein paar Dateien in einem
Testverzeichnis. Die Fusszeile enthàlt dann mittig den Dateinamen
(làsst sich aber noch anpassen).

Gruß
stefan




On 15 Nov., 14:48, Curt Balluff wrote:
Hallo NG
ich sitze wieder vor einem Problem.
Ich habe einen Ordner mit ca. 500 Excel-Arbeitsmappen. Jede
Arbeitsmappe enthàlt 2-3 Tabellenblàtter.
Auf dem Tabellenblatt1 ist in der Fußzeile der Dateiname eingetragen
Diese Angabe fehlt auf Tabellenblatt 2 (und 3).
Nun sollen bei allen Tabellenblàttern aller Arbeitsmappen in dem
Verzeichnis nachtràglich die Dateinamen in der Fußzeile eingefügt
werden.
Hat mir jemand einen Tipp, wie ich da vorgehen kann?
Ich freue mich über jeden Hinweis oder Link.
Curt

Ähnliche fragen