Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
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

Daten aus Pivot automatisch in einzelne Blätter

Daten aus Pivot automatisch in einzelne Blätter
23.03.2008 12:37:00
Rupert
Hallo Forum,
Ist vielleicht wieder mal ungewöhnlich meine Anfrage, jedoch ist mein Schatzerl an mich herangetreten und zwar mit einem Problem.
Sie hat eine Pivot-Tabelle, jetzt ist es ja bei Pivot, so wenn ich auf den wert im Datenfeld (Spalte D) doppelt klicke, öffnet sich ein neues fenster mit den detail daten, dies würde ich jetzt gerne vom ersten bis zum letzten datenfeld per VBA erstellen, wobei der tabellenblatname aus der zelle c2 übernommen werden sollte.
Der nächste schritt wäre dann das pro tabellenblatt eine neue Datei erstellt werde soll mit dem namen des Tabellenblattes.
Ich weiss es klingt kompliziert, jedoch hoffe ich das mir jeman helfen kann.
danke vorab
rupert

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Pivot automatisch in einzelne Blätter
23.03.2008 19:11:47
Herby
Hallo Rupert,
anbei ein kleines Beispiel für das Auslesen
der Detaildaten aus der Pivottabelle:

Die Datei https://www.herber.de/bbs/user/50959.xls wurde aus Datenschutzgründen gelöscht


die neuen Tabellenblätter können ebenfalls per Makro
umbenannt werden. Wie sollen sie denn bezeichnet werden ?
Viele Grüße
Herby

AW: Daten aus Pivot automatisch in einzelne Blätter
24.03.2008 20:23:21
Rupert
Hallo Herby,
Die neuen Tabellenblätter sollten nach dem Inhalt des Datenfeldes c2 benannt werden
Danke vorab für die hilfe
LG
Rupert

Anzeige
AW: Daten aus Pivot automatisch in einzelne Blätter
24.03.2008 23:02:58
Herby
Hallo Rupert,
da ich deine Tabellen nicht kenne, weis ich nicht was bei dir im Datenfeld c2 steht.
Ich habe daher das kleine Beispiel erweitert und es werden alle Tabellenblätter mit
den Detaildaten als eigene Datei gespeichert. Die Bezeichnung der Dateien ist
der Inhalt der Zelle B2. Dort steht der jeweilige "Kundenname".
Falls bei dir andere Felder/Bezeichnungen als Dateinamen in Frage kommen,
ist halt die richtige Zelle auszulesen.
https://www.herber.de/bbs/user/50979.xls
Viele Grüße
Herby

Anzeige
AW: Daten aus Pivot automatisch in einzelne Blätter
25.03.2008 08:50:35
Rupert
Hallo Herby,
Danke für deine Hilfe, hab jetzt gestern noch den code fertiggestellt, der mir die daten auf ein jeweils eigenes Tabellenblatt aufruft, dieses Tabellenblatt mit dem Name der in zelle c2 steht versieht, das tabellenblatt kopiert und dann diese neue Tabelle unter eben diesen Namen speichert.
ich hänge den script hier unten rein, vielleicht hast du noch verbesserungsvorschläge, aber im grossen und ganzen läuft er.

Sub Blätter_erstellen()
Set datname = ActiveWorkbook
strverz = ActiveWorkbook.Path & "\"
Dim strDateiname As String
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ANummer")
.PivotItems("(Leer)").Visible = False
End With
Dim PT As PivotTable
Dim Zelle As Range
Set PT = Worksheets("PIVOT").PivotTables(1)
Application.ScreenUpdating = False
PT.RowFields(1).DataRange.Select
For Each Zelle In Selection
Zelle.Offset(0, 2).ShowDetail = True
Range("D:F,J:K,M:N").Select
Selection.Delete Shift:=xlToLeft
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = "&F"
.CenterFooter = "Seite &P von Seiten &N"
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.Name = Range("c2")
ActiveSheet.Copy
strDateiname = Range("c2").Value & ".XLS"
ActiveWorkbook.SaveAs strverz & strDateiname
ActiveWorkbook.Close
datname.Activate
Next
Application.ScreenUpdating = True
End Sub


nochmals danke für deine hilfe, war ech super
LG
Rupert

Anzeige
AW: Daten aus Pivot automatisch in einzelne Blätter
25.03.2008 16:18:00
Herby
Hallo Rupert
wenns läuft, dann ist das Makro doch O.K.
Ich habs mir mal angeschaut und ein paar Kleinigkeiten geändert, wie
z.B. für alle Variablen eine Deklaration vorgenommen und die anderen Deklarationen
an den Anfang gestellt, die with-Schleife für den Druck noch zusammengefasst und
das wars auch schon.
Warum hast du eigentlich die Pagesetup - Routine noch eingefügt ?
Viele Grüße
Herby

Sub Blätter_erstellen()
Dim strDateiname As String
Dim datname As Workbook
Dim strVerz As String
Dim PT As PivotTable
Dim Zelle As Range
strVerz = ActiveWorkbook.Path & "\"
Set datname = ActiveWorkbook
Set PT = Worksheets("PIVOT").PivotTables(1)
Application.ScreenUpdating = False
With PT
.PivotFields("ANummer").PivotItems("(Leer)").Visible = False
.RowFields(1).DataRange.Select
End With
For Each Zelle In Selection
Zelle.Offset(0, 2).ShowDetail = True
Range("D:F,J:K,M:N").Select
Selection.Delete Shift:=xlToLeft
With ActiveSheet.PageSetup
.PrintArea = ""
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
.LeftFooter = "&F"
.CenterFooter = "Seite &P von Seiten &N"
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.Name = Range("c2")
ActiveSheet.Copy
strDateiname = Range("c2").Value & ".XLS"
ActiveWorkbook.SaveAs strVerz & strDateiname
ActiveWorkbook.Close
datname.Activate
Next
Set datname = Nothing
Set PT = Nothing
Application.ScreenUpdating = True
End Sub


Anzeige
AW: Daten aus Pivot automatisch in einzelne Blätter
26.03.2008 09:02:00
Rupert
Hallo Herby,
Eigentlich habe ich die page-setup eingefügt wegen
Titlerows, Left Footer, Center Footer, Fit to page wide und wegen dem Landscape.
Aber ich bin ja schon stolz drauf das es funktioniert und dank deiner Hilfe bin ich auch rasch weitergekommen. Das spart meinem Schatz einen Ganzen Tag Arbeit, da sie das normalerweise händisch machen musste.
Nochmals grossen dank
LG
Rupert

301 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