Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.07.2024 23:39:14
Name und Datum vergleichen und Wert in Zelle schreiben
02.07.2024 22:41:53
Complie error: Only user-defined types ....
02.07.2024 22:12:09
Formel
02.07.2024 18:50:17
Tabellenblätter drucken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Tabellen einer Datei kopieren & zusammenfügen

Alle Tabellen einer Datei kopieren & zusammenfügen
09.09.2014 12:00:09
e-mo
Hallo alle zusammen...
war lange nicht hier...hatte lange auch keine Probleme mehr gehabt...bis heute :-)
hier zum Problemchen...
Ich ziehe mir aus der Datenbank über eine Abfrage sehr viele Daten, die dann im Excel exportiert werden. Der Export geschieht leider noch auf Excel Vorversion, so dass in einer Tabelle nur 65000 Zeilen umfassen können. Es kommt oftmals vor, dass in einer Datei mehrere Tabellen (innerhalb einer Abfrage bzw. Datei, ist immer die gleiche Struktur gegeben) mit Daten gefüllt sind.
Meine Absicht ist es nun,
Alle Tabellen dieser XLS datei (eventuell kann man die Datei per Aufforderung anwählen, so dass die Datei frei wählbar ist), sollen alle Daten in den Tabellen (chronologisch)kopiert werden, und in nur einer neuen Tabelle einer neuen Datei in XLSX (eventuell mit gleichen Namen, wie die geöffnete Datei) gespeichert werden. Hierbei ist zu erwähnen, dass die Spaltenbezeichnung sich in jeder Tabelle befinden (Zeile 1), aber dies wird nur 1x benötigt, da die Daten fortlaufend (ohne Nummerierung) konsolidiert werden sollen.
Danke im Voraus,
e-mo

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Tabellen einer Datei kopieren & zusammenfügen
09.09.2014 12:33:08
Rudi
Hallo,
teste mal:
Sub aaa()
Dim wbAkt As Workbook, wbNeu As Workbook, wks As Worksheet
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
If .Show = -1 Then
Set wbAkt = Workbooks.Open(.SelectedItems(1))
Set wbNeu = Workbooks.Add(1)
wbAkt.Sheets(1).Rows(1).Copy wbNeu.Sheets(1).Cells(1, 1)
For Each wks In wbAkt.Worksheets
wks.Cells(1, 1).CurrentRegion.Offset(1).Copy _
wbNeu.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
wbAkt.Close False
End If
End With
End Sub

Gruß
Rudi

AW: Alle Tabellen einer Datei kopieren & zusammenfügen
09.09.2014 13:42:28
e-mo
Hallo Rudi
ich habe 2 Probleme damit...
1. ich habe den Code eingefügt in Entwicklungstools > Visual Basic > Einfügen > Modul
aber dann geht es nur für diese eine Tabelle
Frage: Kann ich das irgendwie als Button in Add-Ins bei Excel hinterlegen, so dass ich dieses Script eigentlich immer aufrufen kann?
2. Irgendwie stützt der Rechner bzw. Excel 2010 immer ab. Ich komme gar nicht dazu, die Datei mir richtig anzuschauen
e-mo

Anzeige
AW: Alle Tabellen einer Datei kopieren & zusammenfügen
11.09.2014 13:51:28
e-mo
Hallo,
habe leider kein Feedback erhalten...daher habe ich schonmal selber etwas weiter gemacht...bin leider stehengeblieben.
Zum Punkt 1:
Ich habe nun versucht, das als Add In in Excel 2010 zu integrieren, aber leider erscheint das Add In leider nicht im vorgesehen bereich, obwohl es aktiv sein sollte...
Folgendes habe ich gemacht.
Unter Excel, Visual Basic habe ich bei Einfügen ein Modul erstellt, mit dem oben genannten Code.
Diesen habe ich XLAM gespeichert.
In Excel habe ich nun bei OPTIONEN>ADD INS> GEHE ZU...die XLAM gefunden und aktiviert...
Problem: Dieser erscheint aber nirgends...
Zum Punkt 2: Problem besteht weiterhin...stürzt irgendwie immer ab...excel hat keine Rückmeldung...
Neuer Punkt 3:
Kann man das Script erweitern, dass er sich aus der neuen Tabelle (die konsolidierte Tabelle), die Spalte "Datum" sucht (befindet sich irgendwo in der 1. Zeile), und die Daten darunter alles mit DD.MM.YYYY formatiert? Bzw. auch die Spalte "Kunde" und die Kundennummer als 14 stellige Zahl ohne Punkt und Komma ausgibt? Derzeit sieht es bei der Kundennummer immer 8,031214E+11.
VG,
e-mo

Anzeige
AW: Alle Tabellen einer Datei kopieren & zusammenfügen
11.09.2014 16:01:27
Rudi
Hallo,
zu 1
du musst dir im AddIn per Code eine eigene Symbolleiste erstellen. Die erscheint dann im Tab AddIns.
Das dürfte dich allerdings überfordern.
zu 2: keine Ahnung
zu 3.1: Columns(application.Match("Datum",Rows(1),0)).numberformat="DD.MM.YYYY"
zu 3.2:
Columns(application.Match("Kunde",Rows(1),0)).numberformat="0"
Columns(application.Match("Kunde",Rows(1),0)).autofit
Gruß
Rudi

304 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Anzeige
Makro per Makro in neue Datei kopieren
miss18

Guten Morgen alle zusammen,
ich hoffe Ihr könnt mir noch einmal helfen.
Ich habe folgendens Makro (siehe SUB AbteilungX) für die Freigabe der Dokumentenübersicht für eine bestimmte Abteilung. Diese Freigabe-Makros sind in einer Exceldatei (.xls). Wenn ich die Datei sozusagen freigebe, w...
02.07.2009 10:42:12
Thread-ID: 1085869
7 Beiträge
Tabellen in Datei kopieren
Tobiax

Hallo!
Ich möchte gerne einige meiner Tabellen per Makro in eine Andere Datei kopieren.
Allerdings sollen nur die Werte und das Format in den 4 Tabellenblätter übernommen werden. Die Formeln nicht.
Die beiden Dateien liegen IMMER im selben Ordner.
Kann mir jmd helfen?
Toby ....
25.07.2009 09:06:13
Thread-ID: 1091116
4 Beiträge
Blätter in neue Datei kopieren
Tobiax

Hallo!
Ich möchte aus der Datei "x.xls", 5 bestimmte Tabellenblätter (A, B, C, D, E) in die Datei "y.xls" kopiert haben.
Wie bekomme ich das per Makro hin?
Toby ...
P.S.: Zur Not kann mit den 5 Blättern auch neue Datei generiert werden mit dem Namen "y.xls".
27.07.2009 11:48:47
Thread-ID: 1091559
6 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 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
2
5
3
7
4
6
3
5
13
5
5
7
5
2
13
1
4
6
19
7
1
6
2
12
1