Vielleicht bin ich zu naiv....aber mein Code funzt gar nicht...
Ich will aus einer Reihe geschlossener Arbeitsmappen aus jeweils dem gleich betitelten Tabellenblatt immer die gleichen Spalten in eine Zielmappe, aus der ich per Knopfdruck den Code starte einfügen. Hier der Code:
Option Explicit
Sub Einlesen()
Dim Datei As Variant, DateiErweiterung1 As String, DateiErweiterung2 As String
Dim i As Integer
DateiErweiterung1 = "*.xls"
DateiErweiterung2 = "*.xlsx"
Datei = Application.GetOpenFilename("xls(x)-Dateien (" & DateiErweiterung1 & ";" & _
DateiErweiterung2 & "), " _
& DateiErweiterung1 & ";" & DateiErweiterung2, Title:="Verzeichnisauswahl - Datei(en) _
auswählen", MultiSelect:=True)
If IsArray(Datei) Then
For i = LBound(Datei) To UBound(Datei)
Workbooks(Datei(i)).Sheets("Quelle").Range("E:E,M:N").Copy Destination:= _
ThisWorkbook.Sheets("Ziel").Cells(1, 1)
Next i
Else
Exit Sub
End If
End Sub
Ist das zu einfach gedacht? Wahrscheinlich...