Hallo zusammen,

ich habe folgendes Makro in meiner Excel-Datei:

Sub Fusszeile() Dim dat dat = ActiveWorkbook.BuiltinDocumentProperties(11) Dim Tabellenblatt As Worksheet Dim Text As String

Text = Left(Application.UserName, 1) & ". " & _ Mid(Application.UserName, InStr(1, Application.UserName, " ") + 1) Ergebnis = Left(Text, VBA.InStr(1, Text, "(") - 2)

For Each Tabellenblatt In ActiveWorkbook.Worksheets With Tabellenblatt.PageSetup

.LeftFooter = "" .CenterFooter = "" .RightFooter = ""

.LeftFooter = "&""Arial,Standard""&8Controlling, " & Ergebnis & ", " & Date & ", " & Time & ", " _ & ActiveWorkbook.Worksheets("Versionshistorie").Range("H3").Value & ", " & ActiveWorkbook.Worksheets("Versionshistorie").Range("I3").Value _ & Chr(10) & ActiveWorkbook.FullName & ", Register: " & ActiveSheet.Name

.RightFooter = "&""Arial,Standard""&8Seite &P / &N"

End With Next Tabellenblatt End Sub

Aktuell liest das Makro den Registernamen des aktiven Registers aus. Hierbei habe ich folgendes Problem:

Da in einer Excel-Datei mehrere Register mit unterschiedlichen Namen sein können, möchte das Makro so gestalten, dass alle unterschiedlichen Registernamen meiner Excel-Datei automatisch in der Fußzeile ausgelesen werden.

Ich hoffe, dass ich mein Problem verständlich formuliert habe und bedanke mich im Voraus für Eure Unterstützung. Bei Unklarheiten könnt Ihr mich gerne nochmals fragen.

Vielen Dank.

Grüße, ibo60