ich habe heute ein weiteres PRoblem mit meinen mickrigen VBA Kenntnissen und zwar würde ich gerne eine Pivot Tabelle erstellen. Habe folgenden Code mal zusammengestellt.
Sub Zusammenfassung_TTMM_erstellen()
Dim LZ As Integer
Dim rng As Range
LZ = Sheets("Schrott TT.MM").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(Cells(2, 1), Cells(LZ, 8))
Sheets("Schrott TT.MM").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=rng).CreatePivotTable _
TableDestination:=Worksheets("Zusammenfassung TT.MM").Cells(5, 1), _
TableName:="PivotTable1"
End Sub
Habe versucht einen Bereich festzulegen und wollte aus diesem Bereich "rng" dann die Pivot Tabelle in dem Worksheet "Zusammenfassung TT.MM" erstellen.
Bekomme da die Fehlermeldung "Laufzeitfehlermeldung 1004" ab dieser Zeile:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
Was mach ich falsch?
Und wie kann ich, sobald die Pivot Tabelle erstellt ist, Filtern auf Begriffe wie zum Beispiel "Summe" und "Produktionslinie"?
Vielen Dank schonmal und einen schönen Sonnigen Tag!
Grüße,
Franky