Pivot-Tabelle mit MessageBox VBA
04.11.2015 11:05:30
Senseye
ich würde gerne ein Makro schreiben, bei dem der Zeitbereich, der in einer Abfrage vermerkt ist als Pivot-Filterbereich verwendet wird.
Mit dem Makro-Rekorder kam jetzt folgender Code
Sub Makro1()
Worksheets("TabelleXY").Select
ActiveSheet.PivotTables("PivotTable3").PivotFields("Datum Abzug"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable3").PivotFields("Datum Abzug").PivotFilters. _
Add Type:=xlDateBetween, Value1:="15.06.2015", Value2:="31.12.2015"
End Sub
li>
Wie kann ich den Wert 15.06 und 31.12 als Abfrage in den Code integrieren?
Hoffe jemand hat einen Ansatz für mich :)
Grüße