Makro: Eingabemöglichkeit für Werte schaffen
10.07.2013 14:19:16
Gordon
vielleicht mag mir einer helfen?
Ich öffne per Makro eine Excel-Datei, aktualisiere jeweils die Power-Pivot-Daten, wähle per Pivot-Filter den Monat aus und drucke das dann auf dem Drucker aus. Anschließend folgt dieser Vorgang für weitere Dateien analog.
Ich würde gerne mit dem Start des Makros eine Eingabemöglichkeit des Monats/ der Monate ermöglichen. So sieht es derzeit aus. Die "7" ist dabei die fixe Angabe des Monats, der durch eine abgefragte Variable ersetzt werden soll.
Workbooks.Open Filename:= _
"U:\Pfad\Dateiname.xlsx"
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[den_MMRH_Pivot].[Monat].[Monat]").VisibleItemsList = Array( _
"[den_MMRH_Pivot].[Monat].&[7.]")
Range("D14").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWorkbook.Save
ActiveWindow.Close
Schon mal einen ganz dicken Dank im Voraus!
Viele Grüße.
Gordon