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

Werte aus mehreren Dateien herausholen

Forumthread: Werte aus mehreren Dateien herausholen

Werte aus mehreren Dateien herausholen
26.11.2008 18:39:00
Andres
Hallo,
ich möchte aus einem Ordner aus allen (Excel-)Dateien den Inhalt der Zelle A1 und B1
in die Spalte Spalte A und B der Datei Erfassung.xls eintragen lassen.
Kann mir jemand weiterhelfen?
Gruß
Andres
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus mehreren Dateien herausholen
26.11.2008 18:58:00
Tino
Hallo,
wie wäre es hiermit?
Führe diesen in Deiner Datei Erfassung.xls aus.
Pfad und erster Einfügebereich, musst Du entsprechend an Deine Bedürfnisse anpassen. 
Option Explicit

Sub LeseFiles()
Dim Fso, Ordner, varDatei
Dim DateiName As String, strPfad As String
Dim objDatei As Workbook
Dim Bereich As Range
Dim iCalc As Integer

'Pfad anpassen 
strPfad = "C:\Forum"
'erster Einfügebereich anpassen 
Set Bereich = Sheets("Tabelle1").Range("A1:B1")

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Ordner = Fso.getfolder(strPfad) 'Pfad anpassen 

With Application
 iCalc = .Calculation
 .ScreenUpdating = False
 .EnableEvents = False
 .Calculation = xlCalculationManual
    For Each varDatei In Ordner.Files
     If LCase(varDatei) Like "*.xls" Then
        Set objDatei = Workbooks.Open(varDatei, , True)
        Bereich.Value = objDatei.Worksheets(1).Range("A1:B1").Value
        objDatei.Close False
        Set Bereich = Bereich.Offset(1, 0)
     End If
    Next varDatei
 .Calculation = iCalc
 .ScreenUpdating = True
 .EnableEvents = True
End With
End Sub


Gruß Tino

Anzeige
AW: Werte aus mehreren Dateien herausholen
26.11.2008 19:07:00
Andres
Danke! Klasse!
Wie müßte ich das dann noch machen, wenn die Werte z.B. aus A1 und D1 ( also nicht: Range A1:B1, sondern: .... ?) kommen sollen und dann wie bisher in die Spalte A und B der Datei Erfassung.xls eingetragen werden sollen.
AW: Werte aus mehreren Dateien herausholen
26.11.2008 19:46:00
Tino
Hallo,
so müsste es gehen.
Option Explicit

Sub LeseFiles()
Dim Fso, Ordner, varDatei
Dim DateiName As String, strPfad As String
Dim objDatei As Workbook
Dim Bereich As Range
Dim iCalc As Integer

'Pfad anpassen 
strPfad = "C:\Forum"
'erster Einfügebereich anpassen 
Set Bereich = Sheets("Tabelle1").Range("A1:B1")

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Ordner = Fso.getfolder(strPfad) 'Pfad anpassen 

With Application
 iCalc = .Calculation
 .ScreenUpdating = False
 .EnableEvents = False
 .Calculation = xlCalculationManual
    For Each varDatei In Ordner.Files
     If LCase(varDatei) Like "*.xls" Then
        Set objDatei = Workbooks.Open(varDatei, , True)
            With objDatei.Worksheets(1)
             Bereich(1).Value = .Range("A1").Value
             Bereich(2).Value = .Range("D1").Value
            End With
        objDatei.Close False
        Set Bereich = Bereich.Offset(1, 0)
     End If
    Next varDatei
 .Calculation = iCalc
 .ScreenUpdating = True
 .EnableEvents = True
End With
End Sub


Gruß Tino

Anzeige
AW: Werte aus mehreren Dateien herausholen
27.11.2008 07:10:00
Beverly
Hi Andreas,
hier eine Möglichkeit ohne die Dateien zu öffnen

Sub daten_uebernehmen()
Dim strFile As String
Dim strPath As String
Dim loZeileZielmappe As Integer
Application.ScreenUpdating = False
strPath = "C:\Test\"               ' Pfad bitte anpassen!
strFile = Dir(strPath & "*.xls")
loZeileZielmappe = 1
Do While strFile  ""
If strFile  ThisWorkbook.Name Then
Cells(loZeileZielmappe, 1).Formula = "='" & strPath & "[" & strFile & "]" & " _
Tabelle1" & "'!A1"
Cells(loZeileZielmappe, 2).Formula = "='" & strPath & "[" & strFile & "]" & " _
Tabelle1" & "'!D1"
loZeileZielmappe = loZeileZielmappe + 1
End If
strFile = Dir()
Loop
Range("A1:B" & loZeileZielmappe).Copy
Range("A1:B" & loZeileZielmappe).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Dieser Code funktioniert auch in Excel2007


Anzeige
AW: Werte aus mehreren Dateien herausholen
27.11.2008 07:42:00
Tino
Hallo,
lese Deinen Code nur vom Pocket,
der Tabellenname muss aber bekannt sein, oder?
Gruß Tino
AW: Werte aus mehreren Dateien herausholen
27.11.2008 08:53:00
Beverly
Hi Tino,
im Code ist vorgegeben, dass es Tabelle1 ist. Gibt es diese Tabelle nicht in der Arbeitsmappe, wird die Excel-interne Abfrage zur Auswahl des Tabellenblattes geöffnet.

Anzeige
@Beverly, danke alles klar oT.
27.11.2008 17:35:41
Tino

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
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
Daten abhängig von Datumspalte auslesen
Datumspalte

Hallo,
habe da ein problem und komme nicht weiter. Vielleicht fällt euch etwas dazu ein und helft mir bitte.
Beispieldatei:
https://www.herber.de/bbs/user/55070.xls
Wenn in Tabelle2 in einer bestimmten Zelle ein Datum eingegeben wird, sollte in Abhängigkeit von diesem Datum aus...
31.08.2008 18:38:00
Thread-ID: 1006234
4 Beiträge
Anzeige
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
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
Daten aus tmp-Datei importieren
Wolfgang

Hallo,
ich suche nach einer Möglichkeit, aus einer .tmp-Datei die wohl im Format *"?xml version="1.0" encoding="UTF-8"?*" geschrieben ist, Daten in Excel zu importieren. Über das übliche Verfahren "Daten importieren" bekomme ich das nicht hin. Hat evtl. jemand eine Idee, was ich da machen k...
09.09.2008 08:52:00
Thread-ID: 1008298
7 Beiträge
Passwortgeschütze Werte aus dem Internet in Excel
Heiderer

Hallo!
Folgende Ausgangssituation: Ich möchte, dass meine passwortgeschützen Werte aus dem Internet-Banking in mein Excel-Sheet übertragen werden, sobald ich dieses öffne. Ich hätte kein Problem damit, wenn ich im Excel die dazugehörigen Verfügernummern bzw. Passwörter eingeben muss. Nur fi...
13.09.2008 08:04:00
Thread-ID: 1009472
17 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 aus Zelle holen für VBA
Oliver

Hallo eine kleine Frage,
wollte folgendes umsetzen, ein Benutzer fügt in der Excelobelfläche im ersten Blatt eine Zahl ein. Diese soll jetzt wie folgt verwendet werden:
falls ... größer als dem Zellinhalt, dann ...
meine Idee:
Dim Wert As Integer
Wert = cells(20, 2)
If.....
25.09.2008 10:06:31
Thread-ID: 1012241
6 Beiträge
Auslesen von Daten
Daten

Ich möchte von einem Tabellenblatt Daten in ein anderes Blatt übertragen. Es handelt sich hierbei um Namen bzw. Positionen, die diesen Namen zugeordnet sind in Abhängigkeit von einem Standort.
Als Beispiel ist Jörg Müller Abteilungsleiter im Werk München. Die Daten stehen dann in dem einen...
14.10.2008 19:00:33
Thread-ID: 1016422
2 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
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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