Pivot-Tabelle nach Makro aktualisieren
25.01.2006 11:50:46
Hermann
folgendes Problem bzw. Ablauf meiner Makros:
1. Schritt:
Ich importiere Daten aus einer externe Quelle in meine Auswertung.xls in den Reiter 'Daten'. Der Inhalt von 'Daten' wird bei jedem Neustart des Makros gelöscht.
2. Schritt: In 'Daten' finden dann noch weitere Berechnungen, Formatierungen , Spaltenanpassungen usw. statt (auch mit Makro)
Problem: In einem dritten Schritt möchte ich nun die Ergebnisse im Reiter 'Auswertung' mittels einer Pivottabelle darstellen. Die Daten in 'Daten' ändern sich bei jedem Durchlauf der Makros. Da sitze ich nun schon seit zwei tagen daran. Bekomme das einfach nicht in den Griff. Leider bin ich nur ein "makroaufzeichner" und kein so gute VBA-kenner.
Folgende Aufzeichnung:
Sub Pivot()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Daten!C1:C16").CreatePivotTable TableDestination:=Range("A5"), TableName:= _
"PivotTable11"
ActiveSheet.PivotTables("PivotTable11").SmallGrid = False
With ActiveSheet.PivotTables("PivotTable11").PivotFields("Intervall")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable11").PivotFields("Durchlauf")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable11").PivotFields("Lagerart")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable11").PivotFields("Intervall")
.PivotItems("(Leer)").Visible = False
End With
Range("A14").Select
End Sub
Es kommt die fehlermeldung:
Die Pivot-fields Eigenschaft des pivot table objekts kann nicht zugeordnet werden.
Hoffentlich hab ich das Problem richtig geschildert.
Gruss Hermann