Von anderer Exceldatei in Sheet kopieren

Bild

Betrifft: Von anderer Exceldatei in Sheet kopieren
von: HokoPLM
Geschrieben am: 07.08.2015 13:20:20

Hallo zusammen,
Ich habe eine Excel "EXCEL_1" geöffnet und möchte auf ein anderes Tabellenblatt den Inhalt einer noch geschlossenen Excel "EXCEL_2" reinkopieren.
Inklusive Format und Formeln etc.
Diesen Code fand ich jetzt schon ansatzweise hilfreich.

Sub AuslesenGeschlDatei()
Dim rng As Range, _
    sFile As String, sPath As String, _
    oldStatusBar As Boolean
    Application.ScreenUpdating = False
    oldStatusBar = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
    sFile = "quelle.xls"
    sPath = ThisWorkbook.Path & "\"
    Application.StatusBar = "Daten werden importiert. Bitte warten..."
    With Sheets(1)
      .Range("A1:E100").Formula = "='" & sPath & "[" & sFile & _
        "]Tabelle1'!A1:E100"
      Set rng = .Range("A1:E100")
    End With
    rng.Cells(1).Copy rng
    rng.Value = rng.Value
    Application.ScreenUpdating = True
    Application.StatusBar = False
    Application.DisplayStatusBar = oldStatusBar
End Sub

Hier habe ich nur ein paar Probleme:
Ich möchte auswählen auf welches Tabellenblatt in "EXCEL_1" kopiert werden soll,
es soll aus der ganze Inhalt von "EXCEL_2" kopiert werden.
Sind in "EXCEL_2" mehrere Tabellenblätter beschriftet, ein Auswahlfenster...
Wer hat so eine VOrlage und wieviel kostet mich diese jene welche ;)))

Bild

Betrifft: AW: Von anderer Exceldatei in Sheet kopieren
von: Herbert Grom
Geschrieben am: 07.08.2015 15:31:46
Hallo die/der ohne Namen,
schicken Sie mir doch einmal eine Beispielmappe, damit ich besser verstehen kann, was Sie wollen. Dann kann ich auch sehen, was es evtl. kosten soll.
eMail: hagrom at gmail.com
Viele Grüße
Herbert Grom
P.S.: Und bitte Namen und Anschrift und Firma nicht vergessen. Danke.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Von anderer Exceldatei in Sheet kopieren"