Supportnet / Forum / Tabellenkalkulation
Pivot Datenbereich aktualisieren
Frage
Hallo, ich habe eine Tabelle, die jeden Tag erweitert wird, also neue Zeilen dazu kommen. Darauf baut eine Pivot-Tabelle auf, bei der ich jeden Tag von Hand den Datenbereich angleiche.
Wie kann ich ein Makro erstellen, das die letzte Zeile im Datenbereich findet und damit den Datenbereich aktualisiert?
ich hab schon folgendes ausprobiert:
[code]
var ende as range
ende = activecell.range
Sheets("Auswertung").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
[b] "'Daten-Fehler'!R1C1:R" & Ende.row & "C38"[/b]
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields ColumnFields:="Daten", _
PageFields:=Array("Jahr", "Jahr(Kauf)", "Kalenderwoche", "Monat", "Hauptmangel", _
"FM/Gest./WGB/Tuch/Teile", "Bemerkung(Fehlerursache)", "Fehlerart (Bezeichnung)", _
"In-/Ausland", "Staat", "Kunde", "Kunde(Name)", "Hauptvertreter", _
"Hauptvertreter(Name)", "Teil(Bezeichnung)", "Teil", "Belegnummer", "Belegdatum", _
"Reklamationsdatum", "Sachbearbeiter")[/code]
aber das haut nicht hin.
Schon mal vielen Dank :)