Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten aus mehreren Dateien in neue Datei

Spalten aus mehreren Dateien in neue Datei
26.08.2004 17:09:15
Esther
Hallo
Ich habe leider von VBA gar keine Ahnung, ich hoffe jemand kann mir mit meinem Problem helfen:
Ich habe jede Woche 10 Excel Dateien, aus denen möchte ich jeweils die Spalte E kopieren und diese 10 Spalten dann in eine neue Datei kopieren = Spalten A bis J
Das Gleiche dann noch mit den 10 Spalten L, die kämen dann in der neuen Datei in die Spalten H bis Q.
Kann man das irgendwie automatisieren?
Danke für eure Hilfe!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten aus mehreren Dateien in neue Datei
Reinhard
Hallo Esther,
wie heissen denn die 10 Dateien? Haben die wöchentlich neue Namen oder heissen sie immer gleich, haben also nur neue Daten?
Stehen sie im gleichen Verzeichnis wie die Mutterdatei die das per VBA erledigen soll, wenn nein fehlt der Verzeichnisname wo die 10 Dateien stehen.
Gut wäre es wenn die 10 Dateien alleine in einem eigenen immer gleichen Verzeichnis stehen, dann musst du VBA nicht mitteilen wie sie heissen, sofern ihr Name wöchentlich wechselt.
Wie soll die neue Datei jeweils heissen?
Gruß
Reinhard
AW: Spalten aus mehreren Dateien in neue Datei
27.08.2004 11:31:19
Esther
Hallo Reinhard
Bin ich froh dass sich jemand gemeldet hat!
Also, die 10 Dateien haben jede Woche einen neuen Namen, und werden immer zusammen im gleichen Verzeichniss abgelegt, sonst ist keine andere Datei drin. Im gleichen Verzeichniss kann auch die neue Datei mit der Zusammenfassung sein, der Namen ist eigentlich egal, z.B. Woche 36.xls oder so
Gruss und Danke
Esther
Anzeige
AW: Spalten aus mehreren Dateien in neue Datei
Reinhard
Hallo Esther,
bei Antworten kann man rechts "Frage noch offen" ankreuzen, das erhöht dieChancen dass die Frage beachtet wird.
Leider weiss ich nicht wann ich zeit habe, aber ich hoffe schon dass ein anderer dein Problem bis dahin gelöst hat.
Gruß
Reinhard
AW: Spalten aus mehreren Dateien in neue Datei
27.08.2004 19:29:24
Esther
Hallo Reinhard
Danke für deinen Tipp. Ich hoffe es findet sich noch jemand, der mein Problem lösen kann. Sonst warte ich geduldig, bis du mal Zeit hast ; )
Gruss
Esther
AW: Spalten aus mehreren Dateien in neue Datei
29.08.2004 11:55:38
Roland
Hallo Esther,
versuch mal folgendes:
schaffe die 10 Dateien in ein Extra-Verzeichnis. In das gleiche Verzeichnis speichere eine Datei mit dem Namen Zusammenfassung.xls ab. Diese Datei impfst du mit folgendem Makro:

Sub DateienEinlesen()
Dim ws As Worksheet, datSuche As Object, i As Byte
Set ws = Workbooks("Zusammenfassung.xls").Worksheets("Tabelle1")
Set datSuche = Application.FileSearch
With Application
.AskToUpdateLinks = False
.DisplayAlerts = False
.ScreenUpdating = False
End With
With datSuche
.NewSearch
.LookIn = ThisWorkbook.Path
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count - 1
Workbooks.Open .FoundFiles(i)
Columns("E:E").Copy ws.Columns(i)
Columns("L:L").Copy ws.Columns(i + 11)
ActiveWorkbook.Close
Next i
End If
End With
Set datSuche = Nothing
Set ws = Nothing
With Application
.AskToUpdateLinks = True
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

Wichtig: Es dürfen sich sonst keine weiteren Exceldateien im Verzeichnis befinden. Nun bitte zuerst alle anderen Excel-Dateien schließen und das Makro aufrufen. Es kopiert die gewünschten Spalten jeweils aus Tabellenblatt 1 der Arbeitsmappen.
Gruß
Roland
Anzeige
Schreibfehler
29.08.2004 12:00:57
Roland
es sollte ja in Spalte K losgehen:

Sub DateienEinlesen()
Dim ws As Worksheet, datSuche As Object, i As Byte
Set ws = Workbooks("Zusammenfassung.xls").Worksheets("Tabelle1")
Set datSuche = Application.FileSearch
With Application
.AskToUpdateLinks = False
.DisplayAlerts = False
.ScreenUpdating = False
End With
With datSuche
.NewSearch
.LookIn = ThisWorkbook.Path
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count - 1
Workbooks.Open .FoundFiles(i)
Columns("E:E").Copy ws.Columns(i)
Columns("L:L").Copy ws.Columns(i + 10)
ActiveWorkbook.Close
Next i
End If
End With
Set datSuche = Nothing
Set ws = Nothing
With Application
.AskToUpdateLinks = True
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

Anzeige
AW: Schreibfehler
Esther
Hallo Roland
Danke für deine Hilfe! Ich werde gleich morgen die Sache im Büro "in Angriff" nehmen.
Melde mich dann mit dem Ergebniss.
Gruss
Esther

305 Forumthreads zu ähnlichen Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Anzeige
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Zählenwenn in mehreren Ranges Highspeed
Jan

Hallo,
Ich muss in mehreren Bereichen überprüfen, ob eine der Zellen in den Bereichen einen Wert enthält. Da die Excelfunktion "Zählenwenn" nur einen Bereich unterstützt, habe ich mir folgende Funktion in VBA geschrieben.
Function ZÄHLE(Wert As String, ParamArray Rng() As Variant) As I...
03.10.2009 14:08:20
Thread-ID: 1106968
15 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Formeln in mehreren Sheets ändern
Sven

Hallo,
ich habe eine Tabelle mit meheren Seiten
Persdaten
Stammdaten
23
24
25
usw.
jetzt habe ich gemerkt, dass ich in allen tabellen Formelfehler habe (außer in Persdaten)
jetzt möchte ich per Makro gern in allen Tabellenblättern diese Fehler beheben.
wi...
16.11.2009 02:44:50
Thread-ID: 1117475
2 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
6
2
3
2
2
18
1
14
1
1
2
2
2
5
2
4
3
5
8
4
3
3
3
11
13