19.06.2020, 10:46
Hallo Liebe Forum User,
ich habe ein Kleines Problem mit einen VBA Script, vll kann mir jemand Weiterhelfen.
Merkwürding: Das VBA Script funktoniert auf ein anderen Tabellen Blatt, aber nicht auf ein neu Kopiertes.
VBA Code
Viele Grüße
ich habe ein Kleines Problem mit einen VBA Script, vll kann mir jemand Weiterhelfen.
Merkwürding: Das VBA Script funktoniert auf ein anderen Tabellen Blatt, aber nicht auf ein neu Kopiertes.
VBA Code
Code:
Sub Test2()
Dim d As String
Application.ScreenUpdating = False
'
' Macro1 Macro
'
d = Sheets("Test2").Range("M5").Value
If Sheets(d).Visible = False Then
Sheets(d).Visible = True
'
Sheets(d).Select
ActiveSheet.Columns("A:E").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'" & d & "'!R1C1:R1048576C5", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Test2!R10C1", TableName:="PivotTable4", DefaultVersion _
:=xlPivotTableVersion14
Sheets("Test2").Select
Cells(10, 1).Select
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Grund")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Reason")
.Orientation = xlColumnField <- Hier bleibt er immer stehen.
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("Reason"), "Count of Reason", xlCount
ActiveSheet.PivotTables("PivotTable4").PivotSelect "Grund[All]", _
xlLabelOnly + xlFirstRow, True
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Reason")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Grund")
.PivotItems("(blank)").Visible = False
End With
ActiveWorkbook.ShowPivotTableFieldList = False
Sheets(d).Visible = False
Else: Sheets(d).Visible = False
End If
Columns("A:A").EntireColumn.AutoFit
End Sub
Viele Grüße