Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten auslesen .. Verzeichnis

Forumthread: Daten auslesen .. Verzeichnis

Daten auslesen .. Verzeichnis
02.05.2013 14:28:18
Mike

Hallo zusammen,
in einem Verzeichnis stehen Dutzende gleiche Dokumente von denen ich jeweils 56 Felder (B1, D2, F1, H1 ...) automatisch auslesen möchte.
Pro Dokument soll es später eine Datenzeile mit den 56 Feldern geben. Wie würde hierfür eine VBA-Lösung aussehen?
Danke für Eure Hilfe.
Gruss
Mike

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten auslesen .. Verzeichnis
02.05.2013 15:25:09
Oberschlumpf
Hi Mike
Das sollte so funktionieren (ungetestet):
Sub sbZeile56()
Dim lstrFile As String, liRow As Integer
lstrFile = Dir("DeinPfad\*.xls") 'Pfad + Endung anpassen, da du es hier nicht angegeben  _
hast
If lstrFile = "" Then Exit Sub
liRow = 1
Do Until lstrFile = ""
Workbooks.Open "DeinPfad\" & lstrFile
With ThisWorkBook(1) '1 anpassen, wenn neue Daten nicht in Tabelle1 sollen
'DeineTabelle = den Tabellennamen, aus der die Werte kommen
.Cells(liRow, 1).Value = Sheets("DeineTabelle").Range("B1").Value
.Cells(liRow, 2).Value = Sheets("DeineTabelle").Range("D2").Value
.Cells(liRow, 3).Value = Sheets("DeineTabelle").Range("F1").Value
.Cells(liRow, 4).Value = Sheets("DeineTabelle").Range("H1").Value
'...usw bis...
'für DeineZelle56 = die letzte Zelle, die du übertragen willst
.Cells(liRow, 56).Value = Sheets("DeineTabelle").Range("DeineZelle56"). _
Value
End With
lstrFile = Dir
liRow = liRow + 1
Loop
End Sub
Hilfts?
Schöner wärs gewesen, wenn du eine Bsp-Datei mit allen 56 Zellen gezeigt hättest, die du haben willst.
Ach ja, und all die Infos, die hier auch noc fehlen - zu erkennen an meinen Kommentaren im Code, wo du anpassen musst.
Ciao
Thorsten

Anzeige
AW: Daten auslesen .. Verzeichnis
02.05.2013 16:48:25
Mike
Hallo Thorsten,
wow, besten Dank für die schnelle Hilfe. Aktuell kommt noch dieser Fehler: Run-time error '438' und er stoppt bei "with ThisWorkbook(1)".
Eigentlich ist es immer das erste Blatt, das "RaSa" heisst. Muss ich da was anpassen?
In der ersten Zeile der Ziel-Datei habe ich die Feldnamen hinterlegt, sodass wohl mit "liRow = 2" gestartet werden muss.
Danke für die ergänzende Hilfe.
Gruss
Mike

Anzeige
AW: Daten auslesen .. Verzeichnis
02.05.2013 19:25:00
Oberschlumpf
Hi Mike
Wenn in Zeile 1 = Überschriften oder Feldnamen, dann ist liRow = 2 richtig.
Was aber den Fehler betrifft, den du beschreibst, kann ich dir leider nicht helfen, weil ich deine Bsp-Datei noch nicht kenne, die alle notwendigen Bsp-Daten und sonstige Infos enthalten muss, damit ich den Fehler nachvollziehen kann.
Also, Bsp-Datei inkl Code, inkl Bsp-Daten, inkl. sonstiges, was wichtig ist.
Das mit den Feldnamen wusste ich ja auch nicht - und wer weiß - was da noch für Geheimnisse lauern.
Ciao
Thorsten

Anzeige
Bsp .. Daten auslesen
03.05.2013 12:42:07
Mike
Hallo Thorsten,
danke für Deine Infos. In der Beilage findest Du die Uebersichtsliste (RaSa-Liste - 85171.xlsm) sowie zwei Detailsheets (85172. / 85173.) zum integrieren. Aktuell werden "nur" 14 Felder integriert, um zu sehen, obs überhaupt funktioniert.
https://www.herber.de/bbs/user/85171.xlsm
https://www.herber.de/bbs/user/85172.xlsx
https://www.herber.de/bbs/user/85173.xlsx
Das Vorgehen sieht dann so aus:
1) RaSa-Liste öffnen
2) Makro ausführen -> jedes einzelne Detailsheet nacheinander öffnen (RaSaTa1, RaSaTa2 ...)
3) und die Werte in RaSa-Liste übernehmen
Liste und Detailsheet liegen im gleichen Verzeichnis.
Danke für Deine Anpassungen / Hilfe.
Gruss
Mike

Anzeige
Bsp .. Daten auslesen
03.05.2013 13:23:31
Mike
Hallo Thorsten,
danke für Deine Infos. In der Beilage findest Du die Uebersichtsliste (RaSa-Liste - 85171.xlsm) sowie zwei Detailsheets (85172. / 85173.) zum integrieren. Aktuell werden "nur" 14 Felder integriert, um zu sehen, obs überhaupt funktioniert.
https://www.herber.de/bbs/user/85171.xlsm
https://www.herber.de/bbs/user/85172.xlsx
https://www.herber.de/bbs/user/85173.xlsx
Das Vorgehen sieht dann so aus:
1) RaSa-Liste öffnen
2) Makro ausführen -> jedes einzelne Detailsheet nacheinander öffnen (RaSaTa1, RaSaTa2 ...)
3) und die Werte in RaSa-Liste übernehmen
Liste und Detailsheet liegen im gleichen Verzeichnis.
Danke für Deine Anpassungen / Hilfe.
Gruss
Mike

Anzeige
noch offen .. danke .. Gruss / owT
03.05.2013 14:27:09
Mike
.

AW: Bsp .. Daten auslesen
04.05.2013 08:02:19
Oberschlumpf
Hi Mike
Sorry, das es etwas dauerte - aber ich hab ja auch noch n anderes Leben, außer Excel :-)
Hier nun meine Änderung:
https://www.herber.de/bbs/user/85179.zip
Wie du erkennen kannst, handelt es sich erst mal um ein ZIP-Archiv.
Wichtig!
Du musst das Archiv zuerst entpacken, bevor es losgeht.
Also nicht einfach doppelt auf die ZIP-Datei klicken und dann die Datei Uebersicht starten, sondern erst entpacken.
Danach existiert dann ein neues Unterverzeichnis mit 3 Dateien.
Wie die Dateien heißen, ist egal, da nach Start alle xls-Dateien gesucht + verarbeitet werden.
Mein Code schließt aber die Datei "Uebersicht" von der Verarbeitung aus, da diese Datei ja den Code enthält.
So, nun zu der Übersicht.
Ich hab nur den Code so weit angepasst, dass er auch funktioniert.
Wenn du also nach Entpacken des Archivs die Datei "uebersicht.xlsm" startest und nach Aktivierung der Makros das Makro "RadsatzDaten_importieren" gestartet hast, werden nacheinander alle xls*-Dateien geöffnet, und die entsprechenden Werte in die Uebersichtsdatei übertragen. Nach jedem Vorgang wird die gerade geöffnete Datei wieder geschlossen, und die nächste Datei wird geöffnet.
Achte darauf, dass du im Code vor dem Start erst mal wieder den Pfad anpassen musst, in dem die Dateien gespeichert sind.
So, und wenn nun auch bei dir zumindest erst mal die 2 Testdateien korrekt eingelesen wurden, kannst du ja die Codezeilen erweitern, damit auch alle noch fehlenden Werte übertragen werden.
Bin neugierig auf dein Feedback, ob nun alles läuft.
Ciao
Thorsten

Anzeige
wow wow .. Daten auslesen
06.05.2013 10:24:37
Mike
Hallo Thorsten,
wow wow wow, ich bin begeistert!! Das ist eine geniale Lösung, besten Dank.
Ich hoffe lediglich, dass sie dann beim Verarbeiten von Dutzenden von Tabellen
nicht irgend ein "Memory"-Overflow haben wird, da die Werte ja erst am Schluss
publiziert / eingefügt werden.
Besten Dank für die geniale Erarbeitung,
Gruss
Mike

Anzeige
Perfekt .. Daten auslesen
06.05.2013 14:26:46
Mike
Hallo Thorsten,
nicht nur zwei Blätter sondern auch ein Lauf mit 500 Dateien hat
die Uebersicht ohne Probleme verarbeitet. SUPER!
Besten Dank nochmals für Deine Unterstützung,
Gruss
Mike

danke fürs feedback, freut mich..owT
06.05.2013 14:50:25
Oberschlumpf

noch offen...owT
02.05.2013 19:25:40
Oberschlumpf

Anzeige
AW: Daten auslesen .. Verzeichnis
02.05.2013 15:27:06
Rudi
Hallo,
etwa so: 
Sub xxxx()
Dim sFile As String, arr(1 To 1, 1 To 56)
Dim wkb As Workbook
Const sPath As String = "c:\test\"
sFile = Dir(sPath & "*.xls*")
Do While sFile  ""
Set wkb = Workbooks.Open(sPath & sFile)
With wkb
With .Sheets(1)
arr(1, 1) = .Range("B1")
arr(1, 2) = .Range("D2")
arr(1, 3) = .Range("F1")
arr(1, 4) = .Range("H1")
'etc
End With
.Close False
End With
Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 56) = arr
Loop
End Sub

Gruß
Rudi

Anzeige
Korrektur
02.05.2013 15:30:56
Rudi
Hallo,
da fehlt was. 

sFile =Dir
Loop
End Sub

immer wieder ..
02.05.2013 17:03:14
Mike
Hallo Rudi,
danke für Deine Version. Aktuell macht er noch keinen Dokument-Wechsel sondern
öffnet immer wieder das gleiche und holt sich die (aktuell) vier Demowerte.
Danke für die Bereinigung.
Gruss
Mike
Anzeige
;

Forumthreads zu verwandten Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Datenaustausch zwischen Userformen
Peter

Hallo zusammen!
Von Userform1 aus (modal gestartet) wird die Userform2 gestartet. Beim Verlassen dieser mit Query Close hätte ich gerne in einem Textfeld auf Userform1 eine Statusmeldung (z.B: "Abbruch mit X").
Wie kann ich bei Userformen (beide sichtbar, modal gestartet) Daten hin und...
11.08.2008 16:46:00
Thread-ID: 1000912
5 Beiträge
Daten holen aus anderen Tabellenblättern
Albin

Hallo miteinander
Ich habe ein kleines grosses Problem. Muss bis ende Woche das Problem gelöst haben und ich weiss einfach nicht weiter.
In Tabelle 9000 Zelle I15 hab ich folgende Formel:
=SUMMEWENN('m-9000'!$G$1:$G$1869;B15;'m-9000'!$R$1:$R$1869)
Das heisst, ich gehe mit dies...
11.08.2008 18:57:30
Thread-ID: 1000967
2 Beiträge
Geometriereihe aus Geadaten erstellen (Winkel)
Mindjogger

Servus,
eine Problem aus der Praxis der Soolartechnik:
welchen Abstand muß ich haben, damit eine Verschattung nicht stattfindet?
Ich habe Module der Größe 80x160cm.
In welchem Abstand muß ich diese Setzen, wenn
- der Aufstellwinkel beliebig (zwischen 15 ind 40 Grad) sein k...
13.08.2008 21:55:00
Thread-ID: 1001668
6 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Anzeige
Daten auswerten
Karsten

Tach zusammen,
ich möchte eine Meßreihe auswerten. An verschiedenen Tagen bekomme ich Meßwerte.
Nun möchte ich ich auswerten:
1. Wieviel mal der Wert 1 das Ergebnis 1 gehabt hat.
2. An wieviel Tagen gemessen wurde.
Zur Verdeutlichung habe ich eine Probe Datei hochgeladen.
24.08.2008 09:28:16
Thread-ID: 1004211
4 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Daten aus Bereich filtern/auswerten Harte Nuss!
tekiela

Hallo,
ich habe folgende Datei hochgeladen:
Die Datei https://www.herber.de/bbs/user/55073.xls wurde aus Datenschutzgründen gelöscht
Ich muss Daten aus dem jeweiligen Monat auswerten. Geht speziell um Wochenenden und Feiertage in Schleswig-Holstein. Wieviel Tage (Sa.,So. + evtl. Fe...
31.08.2008 20:58:00
Thread-ID: 1006262
8 Beiträge
Daten aus verschiedene Zeilen nach Datenbank
Jessica

Hallo, liebe Excelfreunde,
irgendwie habe ich wieder einer solcher Tage, da komme ich nicht an die Lösung.
Ich möchte eine Datenbank aus den vorhandenen Daten machen.
Das Problem, die Daten stehen (in gleichmässigen Abständen) in verschiedenen Zeilen:
Spalte
D
Zeilen
...
08.09.2008 16:12:00
Thread-ID: 1008191
7 Beiträge
Anzeige
Daten aus geschlossener Mappe holen
WalterK

Hallo,
den folgenden Code von Josef Ehrensberger habe ich in der Recherche gefunden. Er kopiert aus allen Mappen, die sich in einem vorgegebenen Ordner befinden, die Zeile 2 der Tabelle1 und das funktioniert auch bestens.
Ich bräuchte allerdings eine (vielleicht) kleine Änderung, und zw...
08.09.2008 22:29:57
Thread-ID: 1008261
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige