Excel VBA Datein auslesen

Hallo,

ich benutze MS Excel 2010 und bräuchte ein Makro, zum auslesen mehrerer Excel Datein. Diese befinden sich alle in einam Ordner. Aus jeder Tabelle bräuchte ich die Werte aus Zelle K1 und K2. Diese Werte möchte ich einfach in eine neue Excel Tabelle schreiben.

Danke

Please also mark the comments that contributed to the solution of the article

Content-Key: 327990

Url: https://administrator.de/contentid/327990

Printed on: April 23, 2024 at 08:04 o'clock

8 Comments

Latest comment

Moin,

Stichwort --> Makrorecorder!

VG

Hallo,

das Problem ist aber, ich müsste jedes Dokument einzeln öffnen, bei <1000 Dokumenten gestaltet sich das etwas schwierig.

Gruß

Olle Kamelle
Dateinamen und Artikelanzahl in eine Datei ausgeben

Gruß

Danke, hat mir aber leider auch nicht so viel weitergeholfen.

Zitat von @schwalbepilot:

Danke, hat mir aber leider auch nicht so viel weitergeholfen.

Wow noch nicht mal in der Lage zwei Zeilen zu ändern ...

Sub CopyCells()
    Dim strPath As String, ws As Worksheet, cFile As String
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    'Pfad in dem die Dateien liegen (Default ist hier der Pfad in dem diese Datei liegt)  
    strPath = ThisWorkbook.Path
    'Alle *.xlsx Dateien suchen  
    cFile = Dir(strPath & "\*.xlsx")  
    With ActiveSheet
        'Jede *.xlsx Datei im aktuellen Verzeichnis öffnen  
        Do While cFile <> ""  
            'Datei öffnen und erstes Sheet referenzieren  
            Set ws = GetObject(strPath & "\" & cFile).Sheets(1)  
            With .Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)  
                .Resize(1,2).Value = Worksheetfunction.Transpose(ws.Range("K1:K2"))  
                .Offset(0,2).Value = cFile
            End with
            'Datei wieder schließen  
            ws.Parent.Close False
            'nächste Datei holen  
            cFile = Dir
        Loop
        'Spaltenbreiten der Liste anpassen  
        .Range("A:B").EntireColumn.AutoFit  
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    ' Fertig  
    MsgBox "Alle Dateien wurden eingelesen", vbInformation  
End Sub

Den ihr Makro macht etwas anderes, als ich will und ja, ich bin nicht in der Lage das Makro abzuändern, da ich ein Anfänger bin.

Zitat von @schwalbepilot:

Den ihr Makro macht etwas anderes, als ich will

Nö,...nicht wirklich anders ... s. Code im letzten Kommentar.

da ich ein Anfänger bin.

Das lässt sich mit minimal lesen beheben.
Jeder fängt mal an aber sich zumindest die Mühe machen es erst mal selbst zu versuchen sieht man hier leider keinen Schimmer von

noch nicht mal einen minimalen Fetzen Code.