Makro bei bestimmten Tabellenblätter
30.04.2020 16:05:55
Hifi
Mein Name ist Hifi und ich bin neu in diesem Forum. Nach langer, langer Zeit bin ich wieder mal daran, Excel-Mappen zu modernisieren (Homeoffice sei Dank). Dabei habe ich das erste Mal mit VBA zu tun und stosse leider an meine Grenzen...
Folgendes Problem habe ich:
Ich habe eine Arbeitsmappe mit mehreren Tabellenblätter
[Tabelle 1] Übersicht
[Tabelle 2] Produkt1
[Tabelle 3] Produkt2
[Tabelle 4] Produkt3
[Tabelle 5] Grunddaten
Vor dem Ausdrucken resp. vor der Druckeransicht der [Tabellen 2], [Tabelle 3], [Tabelle 4] soll mir jeweils untenstehendes Makro ausgeführt werden. Dieses Makro habe ich mir als Modul vorgestellt, damit es nicht bei jedem Tabellenblatt dupliziert wird. Dies aus der Überlegung, dass es (sobald mal alles läuft) noch die Produkte 4 ... 30 geben wird.
Wie muss ich das Modul implementieren, damit es bei allen Tabellenblättern ausser [Tabelle 1] und [Tabelle 5] automatisch vor dem Ausdruck resp. vor der Druckeransicht ausgeführt wird?
Besten Dank für eure Hilfe,
Hifi
Sub Versionierung()
Dim Blatt As Object
For Each Blatt In Sheets
With Blatt.PageSetup
.LeftFooter = "Erstellt von: " & ActiveSheet.Range("K2").Value & Chr(10) & "Erstellt am: _
_
_
_
_
" & ActiveSheet.Range("K3").Value
.CenterFooter = "Geprüft von: " & ActiveSheet.Range("K6").Value & Chr(10) & "Geprüft am: _
_
_
_
_
" & ActiveSheet.Range("K7").Value
.RightFooter = "Version: " & ActiveSheet.Range("K4").Value & Chr(10) & "Seite &P/&N "
End With
Next
End Sub