Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1404to1408
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
Inhaltsverzeichnis

Feinschliff - Makro zum Daten auslesen

Feinschliff - Makro zum Daten auslesen
02.02.2015 11:23:01
eric
Hallo liebe Forumsmitglieder,
folgende Auslesedatei mit einem Makro braucht lediglich einen Feinschliff, damit es läuft (ich bin da leider mit meinem Latein am Ende):
https://www.herber.de/bbs/user/95467.xlsm
Ihr müsst euch das folgendermaßen vorstellen. Es wird zukünftig einen Ordner geben, in dem x-viele Exceldateien gleichen Formates abgelegt werden. Jeder Dateiname beginnt mit "pra" und dahinter folgt eine Projektnummer (!!!Achtung: diese ist nicht zwingend fortlaufend. Als Beispiel habe ich Euch mal vier solcher auszulesenden Dateien hochgeladen:
https://www.herber.de/bbs/user/95471.xlsm
https://www.herber.de/bbs/user/95472.xlsm
https://www.herber.de/bbs/user/95473.xlsm
https://www.herber.de/bbs/user/95474.xlsm
Evtl. könnt ihr Euch mit einem Ordner und den ganzen Dateien drin, mein Problem rekonstruieren und so besser zu einer Lösung kommen.
Ich möchte lediglich, dass alle Dateien in diesem Ordner ausgelesen werden. Wenn Ihr kurz ins Makro der Auslesedatei seht, werdet Ihr das sicher schnell verstehen.
Würde mich riesig freuen, wenn einer von Euch das Ding zum Laufen bekommt. Solltet Ihr Fragen zum Verständnis haben lasst es mich gern wissen, ich werde Euch das sofort erläutern.
Tausend Dank schon im Voraus.
Beste Grüße
Eric

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feinschliff - Makro zum Daten auslesen
02.02.2015 13:49:56
fcs
Hallo Eric,
2 Korrekturen sind erforderlich:
1. Bereich für die Datenabfrage ohne G$
Sub LeseDaten()
Dim sFile$, sPath$, arrayData(), n
sPath = ThisWorkbook.Path & "\"
'Anzahl Dateien feststellen
sFile = Dir(sPath & "pra_*")
Do While Len(sFile)
n = n + 1
sFile = Dir
Loop
ReDim arrayData(1 To 39, 1 To n)
Tabelle1.Range("B2:B40").Resize(, Columns.Count - 1).ClearContents
'Dateien lesen
n = 0
sFile = Dir(sPath & "pra_*")
Do While Len(sFile)
n = n + 1
oExAbfrage sPath & sFile, Mid(sFile, 5, 6) & "$A:B", arrayData, n 'Korrektur (Bereich  _
korrigiert) ###
sFile = Dir
Loop
Tabelle1.Range("B2:B40").Resize(, n) = arrayData
End Sub
2. Ein Parameter darf nicht als Referenz übergeben werden, sondern nur als Wert.
Function oExAbfrage(ByVal sFullPath$, strBereich$, arrayData(), ByVal nCol&) 'Korrektur (byVal ergänzt)###
Gruß
Franz

Anzeige
AW: Feinschliff - Makro zum Daten auslesen
02.02.2015 14:05:23
eric
Franz, vielen vielen Dank!!
Beste Grüße
Eric

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige