made Zahlliste sheets landscape.

src/macros/SZTM_Zahlliste.bas

@@ -1,7 +1,7 @@
 Attribute VB_Name = "Module1"
 Sub SZTM_Zahlliste()
 Attribute SZTM_Zahlliste.VB_Description = "Formatiert die Zahlliste"
-Attribute SZTM_Zahlliste.VB_ProcData.VB_Invoke_Func = "F\n14"
+Attribute SZTM_Zahlliste.VB_ProcData.VB_Invoke_Func = "Z\n14"
 '
 ' SZTM_Zahlliste Macro
 ' Formatiert die Zahlliste
@@ -13,6 +13,7 @@ Attribute SZTM_Zahlliste.VB_ProcData.VB_Invoke_Func = "F\n14"
         With ws
         
             ws.Activate
+            ws.PageSetup.Orientation = xlLandscape
             
             'Select first row, change font size, make bold and merge
             Range("A1:F1").Select