Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Bestimmte Spalten aus mehreren Dateien zusammenführen |
26.11.2019 08:44:41 |
Muri |
|
|
|
26.11.2019 11:14:59 |
Muri |
|
|
|
26.11.2019 11:17:37 |
Torsten |
|
|
|
26.11.2019 12:45:27 |
Mase |
|
|
|
26.11.2019 12:48:53 |
Mase |
|
|
Von:
Muri |
Datum:
26.11.2019 08:44:41 |
Views:
1204 |
Rating:
|
Antwort:
|
Thema:
Bestimmte Spalten aus mehreren Dateien zusammenführen |
Hallo zusammen,
ich möchte mit einem Makro folgendes erreichen:
Unter einem Pfad befinden sich ca. 80 Exceltabellen, von denen ich die Spalten A-C und AJ benötige.
Die benutzten Zeilen müssen nicht gezählt werden, man kann auch einfach Zeile 1-2000 kopieren.
Die Ergebnisse sollen im Mastersheet nebeneinander eingefügt werden, sprich:
Quelldatei1 Sheet "P3TA Export" Spalten A-C + AJ Zeile 1-2000 in Zieldatei Sheet "Master" Spalten A-D kopieren
Quelldatei2 Sheet "P3TA Export" Spalten A-C + AJ Zeile 1-2000 in Zieldatei Sheet "Master" Spalten E-H kopieren
usw.
Folgenden Code habe ich mittels Internetrecherche zusammengebastelt, hab aber keine Idee, wie ich den Kopiervorgang in den Abschnitt "Datenübertragung" rein baue.
Bin für jede Hilfe dankbar.
Sub MWErgebnisseAusMehrerenDateienEinlesen()
Dim oTargetSheet As Object
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Dim lErgebnisZeile As Long
Dim lErgebnisSpalte As Long
Dim z As Long
Application.ScreenUpdating = False 'Das "Flackern" ausstellen
Set oTargetSheet = ActiveWorkbook
lErgebnisZeile = 1 'Ergebnisse eintragen ab Zeile 1
lErgebnisSpalte = 1 'Ergebnisse eintragen ab Spalte 1
'Schritt 2: Schleife über alle Excel Dateien in einem Verzeichnis
sPfad = "C:\Users\****\Desktop\Testabdeckung\"
sDatei = Dir(CStr(sPfad & "*.xl*")) 'Alle Excel Dateien
Do While sDatei <> ""
'Schritt 3: öffnen der Datei und Datenübertragung
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True) 'nur lesend öffnen
'Datenübertragung
For z = 1 To z = 2000
..............
'Schritt 4: Datei wieder zu machen und nächste Schleifenrunde
oSourceBook.Close False 'nicht speichern
'Nächste Datei
sDatei = Dir()
Loop
Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
'Variablen aufräumen
Set oTargetSheet = Nothing
Set oSourceBook = Nothing
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Bestimmte Spalten aus mehreren Dateien zusammenführen |
26.11.2019 08:44:41 |
Muri |
|
|
|
26.11.2019 11:14:59 |
Muri |
|
|
|
26.11.2019 11:17:37 |
Torsten |
|
|
|
26.11.2019 12:45:27 |
Mase |
|
|
|
26.11.2019 12:48:53 |
Mase |
|
|