19.06.2020, 13:03 
		
	
	
		Also der erste TAB AYLG Funktoniert mit dem VBA Script, beim zweiten TAB Läuft es bei (siehe unten) auf Fehler .... 
Vg
	
	
	
	
Code:
   With ActiveSheet.PivotTables("PivotTable3").PivotFields("Reason")
        .Orientation = xlColumnField               Vg
