Hallo zusammen,
ich bitte wieder um Eure Unterstützung. Mit der Suche bin ich für mein Problem nicht weitergekommen :-(
Diese Listen (Deutschland, Belgien ...) habe ich von sehr vielen Ländern und Jahrgängen.
Vier habe ich als Beispiel aufgeführt.
Die Formatierung, den Eintrag in die Zelle B1 und die Einrichtung des Druckbereiches habe ich für den Ausdruck für jedes Blatt einzeln.
Gibt es die Möglichkeit dieses für alle in dieser Arbeitsmappe befindlichen Blätter in einem kurzen/kürzeren VBA-Code zu schreiben?
Für eine Hilfe mit kurzer Erklärung wäre ich dankbar.
Gruß
Micha
Meine Beispiele:
Worksheets("Deutschland 2002").Select
Cells.Select
Selection.Columns.AutoFit
Range("B1").Select
ActiveCell.FormulaR1C1 = "Sammel- / Tauschliste von Micha"
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$30"
Range("A1").Select
Worksheets("Deutschland 2003").Select
Cells.Select
Selection.Columns.AutoFit
Range("B1").Select
ActiveCell.FormulaR1C1 = "Sammel- / Tauschliste von Micha"
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$30"
Range("A1").Select
Worksheets("Belgien 2000").Select
Cells.Select
Selection.Columns.AutoFit
Range("B1").Select
ActiveCell.FormulaR1C1 = "Sammel- / Tauschliste von Micha"
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$30"
Range("A1").Select
Worksheets("Belgien 1999").Select
Cells.Select
Selection.Columns.AutoFit
Range("B1").Select
ActiveCell.FormulaR1C1 = "Sammel- / Tauschliste von Micha"
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$30"
Range("A1").Select