AW: Arbeitsmappe aus geschlossener xls kopieren
16.04.2004 09:06:22
Markus
Hallo zusammen,
ich versuche mein Problem nochmal (hoffentlich unmißverständlich) zu schildern:
Ich möchte ein ganzes Tabellenblatt aus einer geschlossenen Datei (z.B. quelle.xls) in die aktive Arbeitsmappe (z.B. ziel.xls) kopieren (Wie "Verschieben/kopieren ..." aus dem Kontextmenü eines Tabellenreiters).
Im Archiv habe ich den Code weiter unten gefunden. Der fügt jedoch nicht ein neues Tabellenblatt ein, sondern nur die beschriebenen Zellen in ein vorhandenes Blatt aus quelle.xls in die Datei ziel.xls.
Gruß Markus
Sub Kombinieren()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Application.ScreenUpdating = False
Workbooks.Open "z:\quelle.xls", False
Set shQuelle = Workbooks("quelle.xls").Worksheets("Quellblatt")
Set shZiel = Workbooks("ziel.xls").Worksheets("Tabelle1")
On Error Resume Next
intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("A" & intRow + 1)
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub