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

Daten aus einem Verzeichnis auslesen

Forumthread: Daten aus einem Verzeichnis auslesen

Daten aus einem Verzeichnis auslesen
15.09.2004 16:32:04
A.Meyer
Hallo zusammen,
ich möchte aus allen Excel Dateien eines Verzeichnisses bestimmte Daten auslesen und in eine neue Tabelle kopieren bzw. teiweise summieren.
Ein Wert befindet sich z.B. immer im Feld L55 diesen möchte ich aus allen Dateien in einem Verzeichnis auslesen und summieren.
Eine weiterer Wert ist in Feld D16 bis D22 (Textinhalt) ist es möglich diese Inhalte auszulesen und in einem einzelnen Tabellenblatt untereinander einzufügen?
Gibt es hierfür eine Lösung? Die Suchfunktion hat mich leider nicht weitergebracht...
Besten Dank im Voraus
Gruß A.Meyer

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus einem Verzeichnis auslesen
tobias
Hallo
folgende Prozedur ist nur ein ungetestetes Beispiel. Variablennamen und programmierart könnten noch verbessert werden...

Sub konsolidieren(Pfad As String)
Dim NeuAPP As New Excel.Application, Tabelle As Worksheet
Dim Wert As Double, i As Long, AktivMapp As String, Zähler As Long
Dim Feld() As String, Fcount As Integer, NeuAPPMapp As String
ReDim Feld(0 To 6)
With Application.FileSearch
.LookIn = Pfad
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 1 Then
Workbooks.Add
Worksheets("Tabelle3").Delete
Worksheets("Tabelle2").Delete
Worksheets("Tabelle1").Name = "Daten"
AktivMapp = activeWorkbook.Name
for i = 1 To .FoundFiles.Count
NeuAPP.Workbooks.Open .FoundFiles(i)
For Each Tabelle In NeuAPP.ActiveWorkbook.Worksheets
Wert = Wert + Tabelle.Range("L55") ' oder Wert = Wert + Val(Tabelle.Range("L55"))'testen, je nach Formatierung
for Fcount = 1 To 6
Feld(Fcount) = Tabelle.Cells((Fcount + 16), 4)
next
NeuAPPMapp = NeuAPP.ActiveWorkbook.Name
Workbooks(AktivMapp).activate
For Fcount = 1 To 6
Worksheets("Daten").Cells((Zähler + Fcount), 1) = Feld(Fcount)
Next
Worksheets("Daten").Range("L55") = Wert
NeuAPP.Workbooks(NeuAPPMapp).Activate
Erase Feld
Zähler = Zähler + 6
Next
NeuAPP.ActiveWorkbook.Close false
Next
End if
End With
End Sub

mfg tobias
Anzeige
AW: Daten aus einem Verzeichnis auslesen
20.09.2004 09:31:13
A.Meyer
Hallo Tobias,
besten Dank erst mal für die schnelle Antwort.
Ich werde mal schauen ob ich das ganze so Umsetzen kann...
Danke und Gruß
Andreas
;

Forumthreads zu verwandten 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
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
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
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Auswertungen aus Matrix - Wie
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer seperaten Arbeitsmappe liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte D untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalten nebeneinander die Bemessungsgrösse 2 (in d...
05.09.2008 12:03:00
Thread-ID: 1007638
4 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Werte aus matrix entnehmen ?
AndreasK

Hallo erstmal,
ich habe folgendes Problem und stelle mich mal wieder ein bisschen zu doof an, naja ich komm nicht drauf.
In Blatt1 habe ich mir ein Formular angelegt das allerdings je nach inhalt an einen unterschiedlichen Verteiler per Mail verschickt wird. Die Namen stehen im Bereic...
29.09.2008 11:53:30
Thread-ID: 1013061
3 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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