Hallo zusammen,

meine Excel-Datei verfügt über eine Exportfunktion für mehrere Tabellenblätter nun möchte ich diese natürlich auch wieder Reimportieren, wie gehe ich hier vor ???

Mein Einzel-Import sieht folgendermaßen aus...

Sub Import()

Application.ScreenUpdating = False

Dim Quelle As Object, Ziel As Object
Dim Datei As String
Dim Blatt As Worksheet

Set Blatt = ThisWorkbook.Worksheets("Tabelle1") 'Bezug auf das Arbeitsblatt "Tabelle1"

Blatt.Unprotect Password:="test"

On Error GoTo Fehler

'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xlsx),*xlsx")

'Abbrechen falls keine Datei ausgewählt
'If Datei = "Falsch" Then
  'MsgBox "Sie haben keine Datei ausgewählt", vbExclamation, "Abbruch"
  'Exit Sub
'End If

'MsgBox "Ausgewählte Datei: " & Datei, , ""

'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei

Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets("Tabelle1")

'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)

ActiveWorkbook.Close

'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing

Exit Sub

Fehler:
Set Quelle = Nothing
Set Ziel = Nothing

    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"

Blatt.Protect Password:="test"

Set Blatt = Nothing

End Sub

Hat hier jemand eine Idee, wie ich die zwei weiteren Tabellenblätter integrieren kann.

Vorab Vielen Dank

Gruß MrMing