Office: Pivot dynamisch erstellen

Hallo,

ich möchte beim starten einer Exceldatei ein Macro ausführen, welches mir automatisch eine Pivottabelle erstellt.

Die Datenquelle wird aus Access in die Tabelle2 importiert und hat immer 4 Spalten und x Zeilen.

Ich habe mir jetzt gedacht, dass ich die letzte Zeile meiner Datenquelle herausfinde und dann die Pivottabelle mit dieser Information erstelle. Beim Code in der Pivottabelle ist allerdings ein Fehler. Kann mir hier vielleicht einer weiter helfen, denn ich weiß nicht wie es da weiter gehen kann.

Hier mein Code:

HTML:

Sub PivotErstellen()

Dim letzteZeile As Single
Dim Spalte As Single
Dim Zeile As Single

Worksheets("Tabelle2").Activate

Spalte = 1
Zeile = 5000

Do Until Zeile = 1

If Worksheets("Tabelle2").Cells(Zeile, Spalte) > 100000 Then

letzteZeile = Zeile

Zeile = 1

Else

Zeile = Zeile - 1

End If

Loop

Worksheets("Tabelle1").Activate

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1:R" & letzteZeile & "C4").CreatePivotTable _
TableDestination:="[Unklarheiten.xls]Tabelle1!R3C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10

With ActiveSheet.PivotTables("PivotTable2").PivotFields("Auftragsnummer")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("UnklarDurchKurz")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("ZeitInStunden"), "Summe von ZeitInStunden", xlSum

ActiveWorkbook.ShowPivotTableFieldList = False

Application.CommandBars("PivotTable").Visible = False

End Sub

Vielleicht hat ja einer eine Idee wie man die letzteZeile in den Code der Pivottabelle bekommt. Wäre sehr dankbar.

Gruß, Stephan

:)

 

Hallo,

es hat sich erledigt.

Ich habe den ganzen Ausdruck:

"Tabelle2!R1C1:R" & letzteZeile & "C4") in eine Variable gepackt und diese dann an der Stelle wo das hier steht eingefügt.

Jetzt funktioniert es.

Gruß, Stephan