15.12.2021, 11:15 (Dieser Beitrag wurde zuletzt bearbeitet: 15.12.2021, 15:04 von WillWissen.
Bearbeitungsgrund: Codetags
)
Hallo zusammen,
ich erzeuge mit einem Makro eine Dateiliste in Excel.
Danach benutze ich via vba einen Code, der aus den aufgelisteten Dateien bestimmte Werte aus verschiedenen Arbeitsblättern ausliest und neben den aufgelisteten Dateinamen einträgt (in weiteren Zellen).
Das Makro funktioniert soweit fehlerfrei, allerdings dauert es eine Ewigkeit (mehr als 15 Minuten) bis die Aktion beendet ist.
Ich muss anmerken, dass es sich hier um eine Dateiliste handelt, die bis zu 4.000 Excel-Dateien umfasst.
Siehe nachfolgenden Code. Lässt sich das beschleunigen?
Code:
Private Function GetValue(pfad, datei, blatt, zelle) '** Daten aus geschlossener Arbeitsmappe auslesen
'*** Dimensionierung der Variablen Dim Ausl As String
'Sicherstellen, dass das datei vorhanden ist If Right(pfad, 1) <> "\" Then pfad = pfad & "\" If Dir(pfad & datei) = "" Then GetValue = "datei Not Found" Exit Function End If
Hallo snb, hochladen der Datei macht wenig Sinn, weil diese auf ein spezielles auf einem Server befindliches Verzeichnis zugreift. Die würde auf jedem anderen Rechner nur Fehler anzeigen.
Dass ich den Code nicht obligatoir gepostet habe liegt daran, dass ich keine Ahnung habe, wie das geht. SORRY!
Wenn hier dennoch jemand im Forum helfen kann, wäre ich sehr dankbar.
Viele Grüße Rumo0815 ------------------------ Bei Licht betrachtet ist der Leithammel auch nur ein Schaf.
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben. Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
zur Power Query fehlen mir die Kenntnisse, leider. Aber zum Begutachten habe ich die Excel-Datei hochgeladen. Ich glaube allerdings nicht, dass man damit so viel probieren kann. Falls aber jemand eine zündende Idee hat, dann würde ich mich sehr freuen! Viele Grüße, bleibt gesund!
Viele Grüße Rumo0815 ------------------------ Bei Licht betrachtet ist der Leithammel auch nur ein Schaf.
16.12.2021, 17:56 (Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2021, 17:57 von Rumo0815.)
Jede Datei beinhaltet mehrere Arbeitsblätter, die eine Datenbasis für eine Produktionssteuerung darstellen. In diesen Dateien sind individuelle Parameter für einen einzelnen Auftrag gespeichert. Die Struktur jeder Datei ist identisch, der Inhalt immer gleich.
Ich möchte jetzt aus diesen Dateien eine Liste erzeugen und zu jeder Datei einige Zellen gezielt auslesen. z.B. aus unterschiedlichen Dateien aus dem jeweils gleichen Arbeitsblatt die gleiche Zelle. (Da steht z.B. ein Kundenname drin, oder ein Liefertermin oder ein Name eines Sachbearbeiters.
Das Problem ist, dass in dem Quellverzeichnis ca. 3.500 solcher Excel-Dateien liegen und das Auslesen enorm lange dauert.
Das Ganze Szenario ist eine "Datenbank für Arme"
Viele Grüße Rumo0815 ------------------------ Bei Licht betrachtet ist der Leithammel auch nur ein Schaf.
zum Thema Produktionsdaten in iner Tabelle erinnere ich mich an einen Thread in einem Fourm? aus der Schweiz.
Dort hatte eine Firma für die Prokuktion über 2700 verschieden Daten in einer einzigen Tabelle. Es waren mindestens 25-30 Spalten. Ich glaube es ging um die Details von Glasherstellung, erinnere mich aber nicht mehr wann das war, welcher Thread, in welchem Foum das war?
Ich will damit nur sagen das man solche Daten, wenn sie vom Datenaufbau identisch sind, am besten in einer Tabelle speichert. Es waren feste Daten als Text, keine Formeln! Und viele Zahlen die sich auf die Produktion bezogen. Mit 2700 eindeutigen ID Nummern.
vba code beschleunigen
