Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in Pivot übertragen

Forumthread: Daten in Pivot übertragen

Daten in Pivot übertragen
08.04.2022 07:40:24
Sarah
Hallo zusammen,
ich komme gleich zur Sache es geht um die Datenübertragung in eine Pivottabelle. Ohne Pivot klappt mein Code super.
Ich denke zum erklären ist es zu aufwendig, deswegen hier meine Datei.
https://www.herber.de/bbs/user/152326.xlsm
und Hier die Datei aus der ich die Daten holen möchte:
https://www.herber.de/bbs/user/152338.xlsx
Jeden Tag wird eine neue Excel aus dem SAP gezogen und in der Ordnerstruktur abgelegt.
Für mehr Transparenz möchte ich, dass ich über einen Button täglich die neusten Daten einfügen kann und in mehreren Diagrammen anzeigen lasse.
Deswegen auch über eine Dynamische Tabelle.
Ich hoffe sehr das mir jemand helfen kann.
Ganz liebe Grüße
Sarah
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten in Pivot übertragen
08.04.2022 09:41:50
Rudi
Hallo,
wo ist die Pivot-Tabelle, Diagramme etc?
Gruß
Rudi
AW: Daten in Pivot übertragen
08.04.2022 10:06:29
Sarah
Hallo Rudi,
Das habe ich wieder entfernt 😁
Mein Problem ist das nach der Formatierung der Liste in eine Tabelle, mein Makro nicht mehr das machte was es vor der Formatierung tat.
Die PivotTab und Diagramme (tägliche, wöchentliche, monatliche & jähliche Übersicht) sollten mit in die Datei des Makros, auf ein neues Tabellenblatt Namens Dashbord.
Wenn man die Formatierung der Liste zurücksetzt, macht mein Code das was ich brauch.
VG
Sarah
Anzeige
AW: Daten in Pivot übertragen
08.04.2022 10:43:14
Rudi
Hakko,
teste mal:

Sub SAP_Auszug()
Dim wb As Workbook
Dim Datei As Variant
Dim LastRow As Long
Dim wsZIEL As Worksheet
Dim wsQUELLE As Worksheet
Dim lngLastZ As Long, lngLastQ As Long
Application.ScreenUpdating = False
Set wsZIEL = ThisWorkbook.Worksheets("SAP-Daten")
lngLastZ = wsZIEL.Cells(Rows.Count, 5).End(xlUp).Row + 1
'ChDir "XXX"
Datei = Application.GetOpenFilename(filefilter:="Excel-Dateien (*.xls*),*.xls*")
If Datei = False Then Exit Sub
Set wb = Workbooks.Open(Datei, UpdateLinks:=0, ReadOnly:=False)
Set wsQUELLE = wb.Sheets("Sheet1")
lngLastQ = wsQUELLE.Cells(Rows.Count, 5).End(xlUp).Row
'Datum kopieren und einfügen
With wsQUELLE
.Range("E2:E" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 5).PasteSpecial xlPasteValues
'Materialkurztext kopieren und einfügen
With wsQUELLE
.Range("B2:C" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 2).PasteSpecial xlPasteValues
'Menge kopieren und einfügen
With wsQUELLE
.Range("C2:C" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 1).PasteSpecial xlPasteValues
'Betrag kopieren und einfügen
With wsQUELLE
.Range("F2:F" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 3).PasteSpecial xlPasteValues
'Belegtext kopieren und einfügen
With wsQUELLE
.Range("O2:O" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 4).PasteSpecial xlPasteValues
wb.Close False
End Sub
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Excel Daten in HTML Formular übertragen
Johannes

Hallo,
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erh...
21.08.2008 13:48:00
Thread-ID: 1003473
7 Beiträge
Daten aus einer Tabelle aus Formular laden
Mandy

Hi,
kann man Daten aus einem Range (zB A1-H5) in eine Listbox laden, die auf einer Userform sitzt ?
In A1 bis H1 ist ein Datensatz , der nachher in der Listbox eine Zeile geben soll.
In A2 bis H2 der zweite Datensatz usw.
Geht das ?
Danke mal
Mandy
02.07.2009 15:55:01
Thread-ID: 1085987
4 Beiträge
Mappe öffnen Pfad in Zellen A1 und B1
lisa

Guten Tag
Ich möchte eine Mappe öffnen und ein spezielles Sheet ansprechen! Der Pfad soll aus den Zellen meiner aktuellen Datei, den Zellen A1 & B1 entnommen werden.
In A1 steht die KW der Mappe, und in B1 (Bsp.: Dienstag) die Sheetbezeichnung.
Dazu folgendes Macro:
ChDir "...
16.07.2009 13:11:51
Thread-ID: 1089033
5 Beiträge
Datensätze in ein Formular laden
Mandy

Hallo,
Ich möchte sowas die eine Adressdatenbank aufbauen und trage dazu Daten in ein Sheet ein. Sieht etwa so aus:
A__________________B____________________C___________________usw
Fritz________________Hauptstr. 7____________München_____________...
Klaus_______________Opernplatz1...
05.10.2009 08:38:32
Thread-ID: 1107202
2 Beiträge
Durchschnitte der 1. und letzten 10 Werte in Tab.
Julian

Hallo,
komme einfach nicht mehr weiter alleine:
Bräuchte den durchschnitt jeweils der ersten und letzten 10 werte aus einer Autoformatierten Tabelle,
sobald ich jedoch weitere werte in die Tabelle einfüge, wandelt sich die formel automatisch auf den durchschnitt der ganzen tabelle,...
14.10.2009 22:01:07
Thread-ID: 1109698
9 Beiträge
Formulardaten in Datenbank automatisch einfügen
kevin-mau@arcor.de

Hallo.
Vielleicht kann es sein das ich im falschem Forum bin, entschuldigt dies bitte.
Aber,...
Ich habe folgendes Problem und zwar brauche ich eine Exceltabelle die als Datenbank dient und ein Formular das Datensätze beihnaltet die nach dem Speichern des Formulars automatisch in di...
27.11.2009 03:19:39
Thread-ID: 1120414
2 Beiträge
Daten Übergabe in das Formular
thomas3

Guten Morgen,
in einem Programm habe ich bisher mit einer Inputbox gearbeitet.
Fuktioniert wie folgt : Excel übergibt in die Box Daten, die im Header und im Feld eingeschrieben werden. In das Schreibefeld soll dann die passende Antwort eingetragen werden.
Nun hat sich im Zuge der B...
22.12.2009 09:06:47
Thread-ID: 1125499
8 Beiträge
Addition: Zelle A1 und B1; Ergebnis in Zelle B1
reiner

Hallo Leute,
ich kann mir nicht vorstellen dass es möglich ist die Zahlenwerte der oben genannten Zellen zu addieren und gleichzeitig das Ergebnis in Zelle B1 anzuzeigen, wenn möglich ohne VBA.
Kann mich jemand vom Gegenteil überzeugen?
mfg
reiner
06.05.2010 11:28:38
Thread-ID: 1155768
5 Beiträge
Anzeige
Daten von eine in die andere Tabelle übertragen
eine

Gibt es hierzu eine Makro Lösung?
Ich habe zwei Sheets:
1. Disposition
2. NMPKurz
Ich möchte die Daten aus der Disposition in NMPKurz in einer anderen Anordnung übertragen.
Hierzu habe ich eine Beispielsdatei eingestellt.
https://www.herber.de/bbs/user/71160.xls
Da...
21.08.2010 14:20:27
Thread-ID: 1173501
8 Beiträge
Anzeige
Daten in Liste übertragen
Michael

Guten Abend,
folgendes (kleines) Problem kriege ich mit meinen bescheidenen VBA-Kenntnissen einfach nicht gelöst:
In einem Tabellenblatt werden für einen Tag Daten (und mehrere Kunden) eingegeben. In einem anderen Blatt befindet sich eine Datenbankliste für das ganze Jahr, wo die Daten...
21.08.2010 21:19:45
Thread-ID: 1173560
8 Beiträge
UserForm; Daten in bestimmte Spalten übertragen
Wolferl

Hallo Excelfreunde,
mein Anliegen ist wahrscheinlich einfach, aber ich habe Probleme.
Eine UserForm zu erstellen und die Daten in die Liste zu übertragen, Spalte für Spalte entsprechend der TextBox geht ja, aber die Struktur der Liste ist etwas anders. Die Daten der TextBox müssen in be...
08.12.2010 18:12:40
Thread-ID: 1190514
5 Beiträge
Anzeige
In Dateien 1 Blatt löschen und je 1 Blatt einfügen
helena

Hallo
Ich suche Lösung um aus Datei welche in Ordner liegt wie Zieldatei(en)
ein Blatt mit Name "Zeit10" un Zieldatei(en) zu löschen und ein Neues mit Name "Zeit11"
d.h. Blatt löschen und neues in die Datei kopieren, pro Ordner liegen ca. 20 Dateien.
DANKE
Gruss aus CH
...
10.01.2011 13:37:49
Thread-ID: 1194793
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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