ein drop-down verndern, andere mit Makro anpassen
30.08.2007 09:55:50
Jonas
ich bin in Excel recht fit, kann Makros aber nur über die Aufnahme-Funktion generieren. Habe aber schon häufiger fremde Quelltexte eingebunden, daher hoffe ich, dass ich den richtigen Denkansatz für mein Problem gewählt habe:
Ich habe mehrere Pivot-Tabellen in einem Tabellen-Blatt. Alle haben als Seitenfeld-Auswahl eine Monatsauswahl im Format 2007-07. Auf Grund vieler Rahmenbedingungen kann ich die Tabellen nicht zusammenfassen und so alle gleichzeitig auf einen Monat einstellen. Dies wird aber bald auf Grund der Menge an Pivot-Tabellen notwendig.
Ich möchte nun einen Makro erstellen, der das Seitenfeld der ersten Tabelle ausliest und auf alle anderen überträgt.
Das Verändern des Drop-Downs geht soweit ich weiß so:
Sub Monatsaktualisierung()
ActiveSheet.PivotTables("PivotTable7").PivotFields("DateRange").CurrentPage = _
"(Alle)"
End Sub
In diesem Fall ändert er das drop-down Menü auf das Feld "(Alle)". Dieser Wert soll aber in Zukunft aus dem Feld B2 ausgelesen werden.
Wie mache ich das?
Vielen Dank im voraus!
Jonas