Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1264to1268
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
Inhaltsverzeichnis

VBA - Fusszeile aus Zelle

VBA - Fusszeile aus Zelle
WalterK
Hallo,
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
und diese Tabellen sollten ausgeschlossen werden:
Sheets("Statistik")
Sheets("Tabelle18")
Sheets("Tabelle21")
Besten Dank für die Hilfe und Servus, Walter

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

Betreff
Benutzer
Anzeige
AW: VBA - Fusszeile aus Zelle
01.06.2012 12:07:52
Rudi
Hallo,
sicher geht das.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
Select Case ws.Name
Case "Statistik", "Tabelle18", "Tabelle21"
'nix passiert
Case Else
With ws.PageSetup
.LeftFooter = Sheets("Tabelle4").Range("A1").Value
End With
End Select
Next ws
End Sub

Gruß
Rudi
Perfekt, danke Rudi! Servus, Walter
01.06.2012 13:47:34
WalterK
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige