Variable Werte (Zellwerte) in Code einbauen
14.08.2017 11:51:44
SJ
ist es möglich den untenstehenden Code noch flexibler zu machen in dem man statt dem Teil "Case is = Monate etc." die Monate nicht fix in den Code einträgt, sondern diese über Zellinhalte steuern kann? Eine Range von 5 Zellen bspw.?
Wenn ja, könnt Ihr mir dabei behilflich sein.
Bin leider noch etwas neu in VBA.
Das wäre überragend!
Vielen Dank Euch.
Grüße
SJ
Sub Variable_Inhalte()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Original")
Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable1")
Dim f As PivotField: Set f = p.PivotFields("Monat")
Dim i As PivotItem, s$
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Monat")
.Orientation = xlRowField
.Position = 1
End With
With f
For Each i In .PivotItems
Select Case i.Name
Case Is = "Oktober", "November", "Dezember", "Januar", "Februar"
i.Visible = True
Case Else
i.Visible = False
End Select
Next
End With
End Sub