Supportnet / Forum / Tabellenkalkulation
Auslesen von Informationen aus ca. 2000 xls Dateien
Frage
Hallo,
nachdem ich gestern hier quasi in Echtzeit eine perfekte Problemlösung erhalten habe, steht just gerade die nächste Frage an.
Ich habe da ca. 2000 Dateien, die alle den gleichen Aufbau (Spalten) haben und in den Zeilen jeweils unterschiedlich viele Produktinformationen. (Artikelnummer Hersteller1, Artikelnummer Hersteller2,, Kurztext ...)
Nun möchte ich die Anzahl aller Artikel (aus den ca. 2000 Dateien) ermitteln, bei denen das Feld Artikelnummer Hersteller1 und Artikelnummer Hersteller2 gefüllt sind.
Also eine Statistik über die Anzahl der referenzierten Artikel. Diese Statistik sollte pro Datei ein Ergebnis liefern, welches wiederum in Excel auswertbar sein soll.
Puh, ich hoffe das ist jetzt nicht zu abgedreht :-)
Dank und Gruß
Uli
Antwort 1 von Saarbauer
Hallo,
ist nach meiner Ansicht nur mit VBA zu machen.
Als erstes wäre erforderlich zu wissen ob die Dateien alle in einem Verzeichnis stehen, dann wäre wichtig in welchen Spalten die Angaben stehen und wo/wie diese gesammelt werden sollen. Zudem wäre auch interessant ob sich Daten wiederholen.
Gruß
Helmut
P.S. Eine/mehrere Beispieldatei/en könnte man hier einstellen
http://www.netupload.de/
und den Link hier hinterlegen
ist nach meiner Ansicht nur mit VBA zu machen.
Als erstes wäre erforderlich zu wissen ob die Dateien alle in einem Verzeichnis stehen, dann wäre wichtig in welchen Spalten die Angaben stehen und wo/wie diese gesammelt werden sollen. Zudem wäre auch interessant ob sich Daten wiederholen.
Gruß
Helmut
P.S. Eine/mehrere Beispieldatei/en könnte man hier einstellen
http://www.netupload.de/
und den Link hier hinterlegen
Antwort 2 von Balu660
Hallo Helmut,
vorab schon mal Dank für die schnelle Reaktion. Die Dateien liegen alle in einem Verzeichnis. Wichtig wäre zum einen die Gesamtanzahl der Einträge und die Anzahl der Einträge in Spalte B (führende Nummer.
Also für die Statistik: Gesamtanzahl pro Lieferant und die Anzahl führender Nummern.
eine Beispieldatei liegt da: http://www.netupload.de/detail.php?img=01c82a3dee350c0ddcba62d1b957d163.xls
Dank und Gruß
Uli
vorab schon mal Dank für die schnelle Reaktion. Die Dateien liegen alle in einem Verzeichnis. Wichtig wäre zum einen die Gesamtanzahl der Einträge und die Anzahl der Einträge in Spalte B (führende Nummer.
Also für die Statistik: Gesamtanzahl pro Lieferant und die Anzahl führender Nummern.
eine Beispieldatei liegt da: http://www.netupload.de/detail.php?img=01c82a3dee350c0ddcba62d1b957d163.xls
Dank und Gruß
Uli
Antwort 3 von Balu660
Eine zweite Datei liegt hier:
http://www.netupload.de/detail.php?img=a333f394a1978b2cba6c26363f2d9eb1.xls
Gruß Uli
http://www.netupload.de/detail.php?img=a333f394a1978b2cba6c26363f2d9eb1.xls
Gruß Uli
Antwort 4 von nighty
hi balu :-)
welche spalten sollen gezählt werden (z.b. spalte a und spalte c),wenn es zwei spalten sind ,sind es zwei ergebnisse,oder sollen die zwei spalten dann nach zählung addiert werden dann wäre es ein ergebniss ?
oder sind die beiden spalten in bezug zur zählung (z.b. nur zählen wenn a und c in der gleichen zeile gefuellt sind)?
wo sollen die zahlen anschliessend hin (z.b. spalte a des activen sheets)?
gruss nighty
welche spalten sollen gezählt werden (z.b. spalte a und spalte c),wenn es zwei spalten sind ,sind es zwei ergebnisse,oder sollen die zwei spalten dann nach zählung addiert werden dann wäre es ein ergebniss ?
oder sind die beiden spalten in bezug zur zählung (z.b. nur zählen wenn a und c in der gleichen zeile gefuellt sind)?
wo sollen die zahlen anschliessend hin (z.b. spalte a des activen sheets)?
gruss nighty
Antwort 5 von Balu660
Hallo nighty,
es geht darum zwei Informationen pro Datei zu erhalten. Ich muss wissen wie viele Zeilen gesamt gefüllt sind, also die Gesamtanzahl der Artikel und als zweite Information in wie vielen Zellen ein Wert in der Spalte führende Nummer eingetragen ist.
Daraus möchte ich dann ein Verhältnis ermittlen. Gesamtartikelanzahl zu führenden Nummern.
Schon mal besten Dank für euer Engagement.
Gruß
Uli
es geht darum zwei Informationen pro Datei zu erhalten. Ich muss wissen wie viele Zeilen gesamt gefüllt sind, also die Gesamtanzahl der Artikel und als zweite Information in wie vielen Zellen ein Wert in der Spalte führende Nummer eingetragen ist.
Daraus möchte ich dann ein Verhältnis ermittlen. Gesamtartikelanzahl zu führenden Nummern.
Schon mal besten Dank für euer Engagement.
Gruß
Uli
Antwort 6 von nighty
hi uli :-)
dann benenn die spalten ,nicht namentlich sonder z.b. spalte a ober spalte c ?
sollen die daten derer 2 es wohl sind dann in das activesheet spalte a + b eingetragen werden ?
sind die spalten mit leerzellen durchsetzt oder durchgehend ?
gruss nighty
dann benenn die spalten ,nicht namentlich sonder z.b. spalte a ober spalte c ?
sollen die daten derer 2 es wohl sind dann in das activesheet spalte a + b eingetragen werden ?
sind die spalten mit leerzellen durchsetzt oder durchgehend ?
gruss nighty
Antwort 7 von Balu660
Hallo,
die Spalte A ist mit einem durchlaufenden Zähler gefüllt. Die Anzahl der Zeilen in A sollte die Gesamtzahl darstellen.
Dagegenstellen möchte ich die Anzahl der in B gefüllten Zeilen.
Das Ergebnis sollte in einer separaten Datei gespeichert werden.
Gruß
Uli
die Spalte A ist mit einem durchlaufenden Zähler gefüllt. Die Anzahl der Zeilen in A sollte die Gesamtzahl darstellen.
Dagegenstellen möchte ich die Anzahl der in B gefüllten Zeilen.
Das Ergebnis sollte in einer separaten Datei gespeichert werden.
Gruß
Uli
Antwort 8 von nighty
hi uli :-)
wie gewünscht :-)
gruss nighty
starte das makro in einer leeren tabelle
spalten a wie b werden auf ende abgetastet(ausgehend davon das spalte a wie b NICHT mit leerzellen durchsetzt sind),-1 da ueberschrift wohl vorhanden ist,+1 bei der darstellung um eine ueberschrift anzugeben,abtastung aller xls dateien im angegebenen verzeichnis
Option Explicit
Sub makro01()
Dim Dateien As Integer
Application.DisplayAlerts = False
With Application.FileSearch
.NewSearch
Rem HIER DEIN PFAD
.LookIn = "D:\test\"
.SearchSubFolders = False
.Filename = "*.xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(Dateien)
Workbooks(1).Sheets(1).Cells(Dateien + 1, 1) = Workbooks(2).Sheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1
Workbooks(1).Sheets(1).Cells(Dateien + 1, 2) = Workbooks(2).Sheets(1).Range("B" & Rows.Count).End(xlUp).Row - 1
Workbooks(2).Close
Next Dateien
End If
Application.DisplayAlerts = True
End With
End Sub
wie gewünscht :-)
gruss nighty
starte das makro in einer leeren tabelle
spalten a wie b werden auf ende abgetastet(ausgehend davon das spalte a wie b NICHT mit leerzellen durchsetzt sind),-1 da ueberschrift wohl vorhanden ist,+1 bei der darstellung um eine ueberschrift anzugeben,abtastung aller xls dateien im angegebenen verzeichnis
Option Explicit
Sub makro01()
Dim Dateien As Integer
Application.DisplayAlerts = False
With Application.FileSearch
.NewSearch
Rem HIER DEIN PFAD
.LookIn = "D:\test\"
.SearchSubFolders = False
.Filename = "*.xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(Dateien)
Workbooks(1).Sheets(1).Cells(Dateien + 1, 1) = Workbooks(2).Sheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1
Workbooks(1).Sheets(1).Cells(Dateien + 1, 2) = Workbooks(2).Sheets(1).Range("B" & Rows.Count).End(xlUp).Row - 1
Workbooks(2).Close
Next Dateien
End If
Application.DisplayAlerts = True
End With
End Sub
Antwort 9 von Balu660
Hallo und vielen Dank,
ich werd´s ausprobieren und mich dann nochmal melden.
Dank und Gruß
Uli
ich werd´s ausprobieren und mich dann nochmal melden.
Dank und Gruß
Uli