Excel: Kopie von gleichen Zellen aus mehreren Arbeitsmappen mit Auflistung

Hallo.

Gibt es im Excel eine Möglichkeit ein Macro zu schreiben, welches in allen Arbeitsmappen, beispielsweise im gleichen Verzeichniss wie die Ausgangsdatei, oder alle offenen Arbeitsmappen (je nachdem was möglich ist) immer die gleichen Zellen zu kopieren und aufzulisten?
Die Datein haben verschiedene Namen.

Hintergrund:
Ich möchte am Ende eines Monats aus mehreren Tabellen eine Liste von Werten haben, die immer an der gleichen Stelle stehen.

Gibt es da eine Möglichkeit? Kann mir da jemand weiter helfen?

Danke schonmal im Vorraus

Phara

Änderungsvermerk: Anhang hinzugefügt

 

Hallo.

Die Arbeitsmappen sind bestimmten Bereichen zugeteilt, welche verschieden genutzt werden. Sie haben jedoch alle einen Reiter der gleich heißt, welchen ich auswerten und auflisten will.

Gruß
Phara

 

...müssen sie ja wohl, wenn sie im gleichen Verzeichnis sind...

Aus den schon geöffneten Dateien sollte es kein Problem sein, diese Daten zu übernehmen. Aber >>>

- hat jede Datei für sich auch jeden Monat den gleichen Namen ?

Gruss Urs

 

INDIREKT setzt aber voraus, dass die Bezugsarbeitsmappe geöffnet ist - andernfalls wird ein Fehler ausgegeben

 

Hi,

hier eine VBA-Lösung:

Code:

Sub daten_uebernehmen()
    Dim strFile As String
    Dim strPath As String
    Dim loZeile As Integer
    Application.ScreenUpdating = False
    strPath = "C:\Test\"                ' Pfadname anpassen
    strFile = Dir(strPath & "*.xls")
    loZeile = 2
    Do While strFile <> ""
        If strFile <> ThisWorkbook.Name Then
            Cells(loZeile, 1).Formula = "='" & strPath & "[" & strFile & "]" & "Tabelle1" & "'!B1"
            Cells(loZeile, 2).Formula = "='" & strPath & "[" & strFile & "]" & "Tabelle1" & "'!B2"
            Cells(loZeile, 3).Formula = "='" & strPath & "[" & strFile & "]" & "Tabelle1" & "'!B3"
            Cells(loZeile, 4).Formula = "='" & strPath & "[" & strFile & "]" & "Tabelle1" & "'!B4"
            loZeile = loZeile + 1
        End If
        strFile = Dir()
    Loop
    Range("A2:D" & loZeile - 1).Copy
    Range("A2:D" & loZeile - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub