Thema Datum  Von Nutzer Rating
Antwort
Rot Import Worksheets
 10.03.2016 11:51:39 MrMing
NotSolved
10.03.2016 15:42:43 MrMing
NotSolved
11.03.2016 09:18:41 Gast69514
Solved

Ansicht des Beitrags:
Von:
MrMing		 Datum:
10.03.2016 11:51:39		 Views:
1675		 Rating:
     
Antwort:
  Ja
Thema:
Import Worksheets

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Import Worksheets
 10.03.2016 11:51:39 MrMing
NotSolved
10.03.2016 15:42:43 MrMing
NotSolved
11.03.2016 09:18:41 Gast69514
Solved