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
|