Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblatt aus externer Exceldatei kopieren

Betrifft: Tabellenblatt aus externer Exceldatei kopieren von: Makro
Geschrieben am: 10.07.2008 10:15:20

Hi,

ich suche ein Möglichkeit, wie ich eine komplettes Tabellenblatt aus einer externen Excel Datei in meine Datei übertragen kann.
Die Quelldatei, von der ich kopieren oder importieren will, heist "Arbeitsdaten" und hat nur ein Tabellenblatt ("Quelldaten")

Die möchte ich nun per Makro in meine bestehende excel Datei kopieren oder transferieren.

In meiner excelmappe gibt es ein Tabellenblatt "Daten einlesen" und da sollen die daten rein.

Wie ist sowas machbar ?

danke mal für Eure Tipps
Makro

  

Betrifft: AW: Tabellenblatt aus externer Exceldatei kopieren von: Peter Feustel
Geschrieben am: 10.07.2008 11:14:19

Hi ??? - hast du keinen richtigen Namen ???

versuch es einmal so:

Public Sub Ein_Blatt_kopieren()

Dim WkBk_Quelle  As Workbook   ' das Herkunfts-Workbook - die Quelle
Dim WSh_Quelle   As Worksheet  ' das Herkunfts-Tabellenblatt
Dim rBlock_Q     As Range      ' der zu kopierende Block
Dim WkBk_Ziel    As Workbook   ' das Empfangs-Workbook - das Ziel
Dim WSh_Ziel     As Worksheet  ' das Empfangs-Tabellenblatt
Dim lZeile_Z     As Long       ' die jeweilige Start-Zeile im Ziel-Blatt

      
   Set WkBk_Ziel = ActiveWorkbook  ' diese Datei ist das Ziel !!!
   Set WSh_Ziel = WkBk_Ziel.Worksheets("Daten einlesen") ' das Tabellenblatt ggf. anpassen !!!
   lZeile_Z = 1                    ' die erste zu beschreibende Zeile
      
   Application.ScreenUpdating = False ' den Bildschirm-Update unterdrücken
      
   Set WkBk_Quelle = Workbooks.Open(Filename:= _
      "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel-Dateien\" & _
      "Arbeitsdaten.xls", ReadOnly:=True) ' die Herkunfts-Datei - die Quelle - öffnen
      
   Set WSh_Quelle = WkBk_Quelle.Worksheets("Quelldaten") ' das Tabellenblatt benennen
   With WSh_Quelle   ' mit dem jeweiligen Tabellenblatt arbeiten
      Set rBlock_Q = .Range(.Cells(1, 1), .Cells.SpecialCells(xlLastCell))
      rBlock_Q.Copy
      WSh_Ziel.Cells(lZeile_Z, 1).PasteSpecial Paste:=xlFormats
      WSh_Ziel.Cells(lZeile_Z, 1).PasteSpecial Paste:=xlValues
      lZeile_Z = lZeile_Z + rBlock_Q.Rows.Count
   End With
         
   Application.CutCopyMode = False
   WkBk_Quelle.Close savechanges:=False
   
   Application.ScreenUpdating = True  ' den Bildschirm-Update wieder zulassen
    
End Sub



Gruß Peter


  

Betrifft: AW: Tabellenblatt aus externer Exceldatei kopieren von: Makro
Geschrieben am: 10.07.2008 12:05:47

Hallo Peter,

doch habe ich: Marco

Also, zu deinem Code, funzt prima , vielen dank

Gruss
Marco




 

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt aus externer Exceldatei kopieren"