2
Excel-Makro: Pivot-Tabelle aus SQL-Abfrage mit veränderlicher Anzahl von Zeilen erstellen
Hallo Zusammen,
ich hoffe der Titel ist soweit schon sprechend.
Aus unserem ERP-System exportiere ich das Ergebnis einer SQL-Anweisung nach Excel 2010.
Diesen Datenexport möchte ich als Grundlage für eine Pivot-Tabelle nutzen.
Da diese Pivot-Tabelle öfters aufgebaut werden soll möchte ich das ganze per Makro automatisieren.
Das Makro steht auch soweit nur der Teil mit der Auswahl der Zeilen ist statisch.
Wie kann ich den Teil SourceData dynamisch gestalten.
kann man da irgendwie folgendes einbauen?
Danke und Gruß
Jörg
ich hoffe der Titel ist soweit schon sprechend.
Aus unserem ERP-System exportiere ich das Ergebnis einer SQL-Anweisung nach Excel 2010.
Diesen Datenexport möchte ich als Grundlage für eine Pivot-Tabelle nutzen.
Da diese Pivot-Tabelle öfters aufgebaut werden soll möchte ich das ganze per Makro automatisieren.
Das Makro steht auch soweit nur der Teil mit der Auswahl der Zeilen ist statisch.
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"SQL Results!R1C1:R76C7", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14Wie kann ich den Teil SourceData dynamisch gestalten.
kann man da irgendwie folgendes einbauen?
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).SelectDanke und Gruß
Jörg
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 284883
Url: https://administrator.de/forum/excel-makro-pivot-tabelle-aus-sql-abfrage-mit-veraenderlicher-anzahl-von-zeilen-erstellen-284883.html
Ausgedruckt am: 22.12.2024 um 11:12 Uhr
2 Kommentare
Neuester Kommentar
strSource = "SQL Results!" & Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1) 
Hallo jodel32,
danke für Deine Antwort. Hat leider nicht funktioniert aber mir den entscheidenden Hinweis gegeben.
Habe es jetzt wie folgt gelöst:
G Jörg
danke für Deine Antwort. Hat leider nicht funktioniert aber mir den entscheidenden Hinweis gegeben.
Habe es jetzt wie folgt gelöst:
Dim letzteZeile As Long
letzteZeile = Sheets("SQL Results").Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'SQL Results'!R1C1:R" & letzteZeile & "C7", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14G Jörg
