Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Import vieler Excel-Dateien in eine

Forumthread: Import vieler Excel-Dateien in eine

Import vieler Excel-Dateien in eine
20.05.2005 13:09:47
Quirl
Hallo,
ich habe folgendes Problem:
ich habe 3 Odrner mit jeweils 20 bis 50 Excel-Dateien (je Ordner gleich formatiert mit unterschiedlichen Inhalten).
Aus diesen Dateien möchte ich jeweils 2 oder 3 Blätter (identisch pro Ordner) in eine neue Excel-Mappe importieren, dabei soll das Blatt zur besseren Unterscheidung jeweils den Originalnamen der Exceldatei bekommen.
Die bisher gefundenen Hinweise hier haben mich leider noch nicht weitergebracht, da ich keine Ahnung von VBA habe.
Danke vorab und Gruß Quirl
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import vieler Excel-Dateien in eine
20.05.2005 15:16:18
UweD
Hallo

ist heute schon die dritte ähnliche Aufgabe.
Habe ein Makro auf deine Bedürfnise abgeändert.

Sub alle_Dateien_Verzeichnis()
Dim strPath$, strExt$, strFile$, TB$(3), I%
strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "m*.xls"       'Dateiextension ggf. anpassen
TB(1) = "DerName" ' das zu kopierende Blatt1
TB(2) = "DerName2" ' das zu kopierende Blatt2
TB(3) = "DerName3" ' das zu kopierende Blatt3 Leer wenn nur 2 Blätter
If strPath = "" Then
Exit Sub
Else
Application.ScreenUpdating = False
strFile = Dir(strPath & strExt)
On Error Resume Next ' wenn Blatt nicht enthalten
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
For I = 1 To 3
If TB(I) <> "" Then
Workbooks(strFile).Sheets(TB(I)).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
If Err.Number = 9 Then GoTo Fehler 'Blatt nicht da
'Umbenennen der Blattes
ActiveSheet.Name = TB(I) & " " & Application.Substitute(strFile, ".xls", "")
End If
weiter:
Next I
Workbooks(strFile).Close savechanges:=False
strFile = Dir() ' nächste Datei
Loop
Application.ScreenUpdating = True
End If
Exit Sub
Fehler:
Err.Clear
MsgBox "Gewünschtes Blatt ''" & TB(I) & "'' ist in Datei ''" & strFile & "'' nicht enthalten!"
GoTo weiter
End Sub


Schönes Wochenende
Gruß UweD
Anzeige
AW: Import vieler Excel-Dateien in eine
20.05.2005 19:33:52
Quirl
Danke erst mal für die schnelle Reaktion.
Aber wie komme ich jetzt weiter? Die Daten (Pfad und Blattnamen habe ich geändert, aber wenn ich das Makro ausführe, passiert garnichts!
Sicherheitsstufe für Makros steht auf "niedrig"
Gruß Quirl
AW: Import vieler Excel-Dateien in eine
20.05.2005 19:42:03
andre
Hallo Quirl,
hier ist das m zuviel - weiter hab ich noch nicht nachgeschaut
strExt = "m*.xls" 'Dateiextension ggf. anpassen
Anzeige
AW: Import vieler Excel-Dateien in eine
20.05.2005 20:00:43
Quirl
Leider noch nicht, es passiert garnichts!
Wie kann ich denn so ein Makro schrittweise ablaufen lassen, damit ich sehe was passiert?
AW: Import vieler Excel-Dateien in eine
20.05.2005 20:28:16
andre
... mit F8 (Cursor vorher in den Makrobereich stellen)
Grüße, André
;

Forumthreads zu verwandten Themen

Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Anzeige
Mehrere Excel Dateien in einer kombinieren
Diego

Hey an alle,
kann mir vielleicht irgendeiner sagen wie ich mehrere Excel Dateien in einer kombiniere, also ich möchte dass ich eine datei aufmache dann eine Art "LOAD"-Button habe, der dann aus einem festen Ordner die Excel Dateien aufmacht und die ganzen Tabs rauskopiert und in diese eine...
13.02.2009 15:33:00
Thread-ID: 1050560
3 Beiträge
zwei Textdateien in eine Excel-Datei importieren
erick

Moin,
ich importiere mit beigefügtem Makro eine Datei (C:\Drucke\SUB\bis2000.dfu)
Die Zeilenanzahl ist variabel.
Jetzt möchte/muss ich in die gleiche Datei Daten aus einer weiteren Datei ((C:\Drucke\SUB\ab2000.dfu) gleicher Aufbau) importieren.
Ich möchte die Daten der 2ten Da...
03.04.2009 09:18:19
Thread-ID: 1066570
2 Beiträge
mehrere CSV-Dateien in einem Ordner splitten
Teck

Hallo Excel Experten,
auch nach stundenlangem Suchen auf diversen Excel-Seiten, bin ich leider nicht auf eine Lösung meines Problems gestoßen.
Mein Ziel ist es, mehrere CSV Dateien, die möglicherweise Überlänge haben (mehr als 65.536 Zeilen), aber alle in einem Ordner gespeichert sind,...
19.08.2009 13:00:31
Thread-ID: 1097079
4 Beiträge
Mehrere Dateien in einer Auswertung zusammenfa
Roland

Hallo.
Ich bin ein Exceleinsteiger und habe folgende Idee, die ich alleine nicht umsetzen kann:
Ich habe ca. 100 gleiche Exceldateien mit unterschiedlichen Namen und jeweils ca. 25 geschützten Tabellen. Abgespeichert in einem Ordner.
In jeder dieser ca. 100 Dateien gibt es eine T...
13.09.2009 23:04:54
Thread-ID: 1102439
5 Beiträge
Daten aus mehreren Dateien in eine Tabelle übertr.
Constantin

Hallo,
ich möchte Datenzeilen (Spalte A-Z), die in verschiedenen Exceldateien (immer in Tabelle1) in einheitlichem Format stehen, in eine "zentrale" Datei (dort auch in Tabelle1) übertragen bzw. anfügen.
In einer zentralen Datei (Zentral.xls), die auch das Makro beinhalten soll, müssen...
29.10.2009 10:18:52
Thread-ID: 1112959
7 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
3 Beiträge
Existiert ein pdf in best. Ordner?
Florian

Hallo Excel-Freunde!
Habe eine Frage, evt. könntet Ihr mir hier weiterhelfen: wie kann ich per Makro überprüfen, ob ein pdf in einem bestimmten Ordner existiert? Der Dateiname spielt dabei keine Rolle. Habe auch schon einen Code der funktioniert (s.u.), aber hier wird ja im Prinzip jeder Da...
22.05.2010 15:20:41
Thread-ID: 1158413
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige