Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches erstellen einer Pivot Tabelle

Automatisches erstellen einer Pivot Tabelle
17.03.2008 09:06:00
Philipp
Hallo
Ich habe ein kleines Problem und hoffe das einer von euch mir helfen kann.
Ich rufe über einen Link ein excel Dokument auf wo zuerst über ein Auto Makro Daten importiert werden, das klappt soweit auch wunderbar.
Nun möchte ich das aus diesen Importierten Daten automatisch eine Pivot Tabelle erstellt wird.
Ich habe mir solch ein Makro einmal aufgezeichnet, dies in eine Funktion geschrieben und versucht die Funktion nach meinen Datei import aufzurufen (im Auto Makro).
Allerdings läuft das Makro immer auf einen Fehler an dieser Stelle: 

ActiveSheet.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Import Datei'!R1C1:R11851C18").CreatePivotTable TableDestination:="", _
TableName:="PivotTable4", DefaultVersion:=xlPivotTableVersion10


Liegt es vielleicht daran das ich mein excel Dokument über den Browser öffne?
Hat jemand eine Idee wie man das Problem lösen könnte?
Gruß Philipp

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches erstellen einer Pivot Tabelle
17.03.2008 10:07:00
fcs
Hallo Philipp,
ersetze ActiveSheet durch ActiveWorkbook
Ausserdem müssen in Zeile 1 alle 18 Spalten einen Eintrag haben, leere Spaltentitel sind nicht zulässig.
Gruß
Franz
Beispiel:

Sub PivotEinfuegen()
' PivotEinfuegen Makro
Dim wsData As Worksheet, Bereich As Range
'Datenbereich ermitteln
Set wsData = Worksheets("Import Datei")
With wsData
Set Bereich = .Range(.Cells(1, 1), .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 18) _
)
End With
'Pivottabelle einfügen
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'" & wsData.Name & "'!" & Bereich.Address(ReferenceStyle:=xlR1C1)).CreatePivotTable _
TableDestination:="", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion10
'Pivot-Layout festlegen
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="A", _
ColumnFields:="B"
ActiveSheet.PivotTables("PivotTable1").PivotFields("C").Orientation = _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub


Anzeige
AW: Automatisches erstellen einer Pivot Tabelle
17.03.2008 11:02:00
Philipp
Hallo Franz
Erstmal vielen Dank für die schnelle Antwort, dein Makro funktioniert bei mir im excel auch wunderbar.
Nur ich habe immer noch das Problem, wenn ich das Excel Dokument über den Link starte, und das Excel Dokument über den Browser gestartet wird.
Laufe ich auf folgenden Fehler: 

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'" & wsData.Name & "'!" & Bereich.Address(ReferenceStyle:=xlR1C1)).CreatePivotTable _
TableDestination:="", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion10


Hier mein Code: 


' PivotEinfuegen Makro
Dim wsData As Worksheet, Bereich As Range
'Datenbereich ermitteln
Set wsData = Worksheets("Import Datei")
With wsData
Set Bereich = .Range(.Cells(1, 1), .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 18) _
_
)
End With
'Pivottabelle einfügen
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'" & wsData.Name & "'!" & Bereich.Address(ReferenceStyle:=xlR1C1)).CreatePivotTable _
TableDestination:="", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion10
'Pivot-Layout festlegen
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array( _
"Warengruppe", "Artikelnummer", "Daten")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("EK-Durch")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Wert-VK1").Orientation = _
xlDataField


Ich hab den Code auch mal direkt unter einen Button gesetzt weil ich erst dachte das der Datei Import noch nicht fertig ist, aber er läuft auch hier auf diesen Fehler.
Noch eine Idee?
Gruß Philipp

Anzeige
AW: Automatisches erstellen einer Pivot Tabelle
17.03.2008 15:39:32
fcs
Hallo Philipp,
ich hab leider keine Erfahrung(Ahnung), welche Funktionen in Excel bei Darstellung im Browser nicht arbeiten bzw. eingeschränkt sind.
Und ich weiss somit auch nicht wo man hier ggf. ansetzen muss.
Gruß
Franz

309 Forumthreads zu ähnlichen Themen

Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Berechnung in dynamischer Tabelle
Gerhard

Hallo zusammen,
Ich möchte in meiner dynamischen Tabelle in der Spalte G die Differenz von dem letzten Eintrag der SpalteD zum letzten Eintrag der Spalte F eintragen.
Beispiel:
Der Inhalt meiner Tabelle endet momentan bei D100
dann sollte via Makro die Differenz in Spalte G100 z...
15.09.2008 08:39:00
Thread-ID: 1009658
9 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Pivot-Tabelle SVERWEIS-Formel
Susi

Hallo liebe Excel-Freunde,
ich habe ein Problem mit einer Pivot-Tabelle. In einer bestehenden Pivot-Tabelle kann man ja selbst ein berechnetes Feld einfügen. Solange es nur "einfache" Formeln sind, stellt dies auch kein Problem da. Nun möchte ich aber eine SVERWEIS-Formel, die sich auf Date...
07.10.2008 12:40:03
Thread-ID: 1014686
2 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
3
5
8
1
1
3
4
3
4
2
1
5
3
4
2
3
12
8
2
1
3
3