VBA - Fusszeile aus Zelle
WalterK
der folgende Code fügt bei allen Blättern meiner Arbeitsmappe als Fusszeile den Inhalt von Tabelle4 Zelle A1 ein!
Ich möchte im Code Tabellennamen angeben, bei denen die Fusszeile nicht eingefügt wird, geht so etwas?
Der Code lautet so:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
With ws.PageSetup
.LeftFooter = Sheets("Tabelle4").Range("A1").Value
End With
Next ws
End Sub
Sheets("Statistik")
Sheets("Tabelle18")
Sheets("Tabelle21")
Besten Dank für die Hilfe und Servus, Walter
Anzeige