Hallo zusammen,

ich sag es gleich. Ich bin nicht wirklich bewandert in VBA aber ich habe mich jetzt dann doch mal daran gewagt einen code zu schreiben (zumindest teilweise) der mir ein problem lösen sollte. Das hat soweit auch funktioniert. Mein Problem ist gelöst aber durch die Art und Weise wie ich den Code "zusammengebastelt" habe, habe ich nun ein neues Problem.

Ich habe den code teilweise selbst geschrieben (mit Forumshilfe) und teilweise aus dem Recorder übernommen. Ich will jetzt aber ein paar Worksheets verstecken, jedoch funktionieren dann meine VBA Codes nicht mehr. Soweit ich bisher rausgefunden habe liegt das an den "Selects" dich ich in meinem code, durch den Recorder, habe. Jedoch schaffe ich es nicht selbst einen funktionierende Code ohne diese Selects zu schreiben und daher wollte ich hier fragen, ob mir hier eventull jemand dabei helfen kann....

Mein code sieht wie folgt aus:

Sub January()
'
' January Makro
'

'
    Sheets("chart data financial cockpit").Select
    If Range("C3") = 1 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4167"
       
    ElseIf Range("C3") = 2 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4449"
       
    ElseIf Range("C3") = 3 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4196"
       
    ElseIf Range("C3") = 4 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "5499"
   
    ElseIf Range("C3") = 5 Then
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU").CurrentPage _
        = "4414"
       
    Else
    Sheets("Opportunity Overview").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month of EAD").CurrentPage _
        = "1"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BU"). _
        ClearAllFilters
       
    End If
   
End Sub

Ich bin über jegliche Hilfestellung froh, auch wenn jemand vielleicht eine andere Idee hat wie man das ganze, eventuell auch kürzer, lösen könnte.

MFG

B1gT4nk