Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
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
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen aus mehreren Dateien auslesen

Bestimmte Zellen aus mehreren Dateien auslesen
11.03.2019 13:31:02
JP
Hallo zusammen,
ich benötige Hilfe beim Erstellen eines Makros welches mir aus Excel Dateien die sich in einem Ordner befinden bestimmte Zellen ausliest und in einen neuen Blatt überträgt.
Ich habe bei meiner Recherge folgenen Artikel gefunden, was meinem Anliegen schon sehr nahe kommt:
https://www.herber.de/forum/archiv/1128to1132/1129032_Bestimmte_Zeilen_aus_mehreren_Dateien_auslesen.html
Die Excel Dateien sind alle gleich aufgebaut. Folgene Zellen sollen aus der Datei ausgelesen werden:
D1
B8
B12
C18-C29
Userbild
Ich wäre Euch sehr dankbar, wenn ihr mir dabei behilflich sein könntet.
Gruß
JP

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen aus mehreren Dateien auslesen
11.03.2019 16:26:58
Rob
Hi JP,
die Excel-Dateien lassen sich mit der Klasse FileSystemObjects durchschleifen. Anschließend kannst Du die Zellen in ein neues Arbeitsblatt/Worksheet mit der Transfer-Methode oder Copy Paste zusammenfassen. Wie ist das neue Arbeitsblatt eigentlich aufgebaut?
Grüße,
Rob
AW: teilweise getestet
11.03.2019 16:59:04
Fennek
Hallo,
speichere den Code im "Ziel-Workbook" im Ordner der Quelldateien:

Sub JP()
Dim WB As Workbook
Dim RNG As Range
Pt = ThisWorkbook.Path
f = Dir(Pt & "\*.xlsx")
Do While Len(f)
r = r + 1
Set WB = GetObject(Pt & f)
Set RNG = WB.Sheets(1).Range("D1, B8, C18:C29")
Cells(r, 1) = RNG.Areas(1)
Cells(r, 2) = RNG.Areas(2)
Cells(r, 3).Resize(, 12) = Application.Transpose(RNG.Areas(3).Value)
wb.close 0
f = Dir
Loop
End Sub
mfg
Anzeige
AW: teilweise getestet
12.03.2019 10:36:59
JP
Vielen Dank für die schnelle Antwort.
Leider funktioniert der Code nicht bei mir.
Die Dateien sind im .xld Format so habe ich "f = Dir(Pt & "\*.xl*")" geändert.
Nun bekomme ich allerdings folgene Fehlermeldung:
Userbild
Das neue Datenblatt sollte wie folgt aussehen:
Userbild
AW: "XLD"? over & out
12.03.2019 10:54:25
Fennek
Hallo,
vom "XLD"-Format habe ich noch nie gehört:
http://dotwhat.net/file/extension/xld/82
Aber wer solche relevanten Infos nicht im ersten Post nennt, landet auf meiner Ignore-Liste.
mfg
Anzeige
AW: "XLD"? over & out
12.03.2019 11:03:57
JP
Hallo fennek,
ich möchte dir trotzallerdem für deine Hilfe danken.
Das diese Information von größerer Bedeutung ist, war mir nicht bewusst, da es ja ein altes excel-datenformat zu sein scheint, sprich Abwärtskompatibilität.
Ich habe die Datei auch vom .xld zu einer .xlsx umgewandelt, selber Fehler.
Gruß
JP
AW: "Pf": welcher Inhalt?
12.03.2019 11:31:09
Fennek
AW: "Pf": welcher Inhalt?
12.03.2019 11:48:10
JP
Anbei der komplette Inhalt der Datei:
(Gelb gemarkert sind die auszulesenen Zellen)
Userbild
AW: "Pf": welcher Inhalt? (die II.)
12.03.2019 11:52:26
Fennek
Die Frage war, welchen Inhalt die Variable Pf in der Zeile "f = dir(Pf & "\xl?") hat.
Es sollte der Pfad ohne "\" mit den xld/xlsx Dateien sein.
Wenn der Debugger anspringt, klicke NICHT auf beenden, sondern auf "debugging" und stelle den Mauszeiger über "Pf".
Anzeige
AW: "Pf": welcher Inhalt? (die II.)
12.03.2019 12:09:43
JP
In dem Code war Pt statt Pf angegeben. Durch die Änderung zu 

Pf = ThisWorkbook.Path
f = Dir(Pf & "\*.xl*")
Do While Len(f)
habe ich nun den Pfad zum Verzeichnis.
Nächster Schritt im debugger gibt den vorher genannten Fehler.
Hier nochmal der komplette Code: 
Sub JP()
Dim WB As Workbook
Dim RNG As Range
Pf = ThisWorkbook.Path
f = Dir(Pf & "\*.xl*")
Do While Len(f)
r = r + 1
Set WB = GetObject(Pf & f)
    Set RNG = WB.Sheets(1).Range("D1, B8, C18:C29")
Cells(r, 1) = RNG.Areas(1)
Cells(r, 2) = RNG.Areas(2)
Cells(r, 3).Resize(, 12) = Application.Transpose(RNG.Areas(3).Value)
WB.Close 0
f = Dir
Loop
End Sub

Anzeige
AW: GetObject
12.03.2019 12:15:34
Fennek
"GetObject" wird genutzt um das Quell-Workbook unsichtbar zu öffnen. Zum debuggen ersetze es durch "set WB = workbooks.Open(Pf & f)"
AW: GetObject
12.03.2019 12:33:36
PeterK
Hallo
GetObject(Pf & f) benutzt einen falschen "Dateinamen", sollte wohl heißen: GetObject(Pf & "\" & f)

311 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 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
1
3
4
3
3
7
4
4
17
3
3
2
4
2
6
5
4
2
3
1
2
4
4
2
3