Beide Dateien (die mit dem Makro und die Datei datei2.xls) befinden sich stets im gleichen Ordner.
Sub CommandButton1_Click()
'kopiert 2 Bereiche in ausgewählte Tabelle
Const strOutFile = "C:\Dokumente und Einstellungen\Administrator\Desktop\datei2.xls"
Dim rngInput1 As Range 'Input-Spalte 1
Dim rngInput2 As Range 'Input-Spalte 2
Dim rngOutput1 As Range 'Output-Spalte 1
Dim rngOutput2 As Range 'Output-Spalte 2
Dim wbkOutput As Workbook 'Output-File
Dim shtOutput As Worksheet 'Output-Tabelle
Dim strSheet As String 'Tabellen-Name
strSheet = InputBox("Tabellenblatt:") 'Tabellen-Namen abfrage
Set rngInput1 = [E11:E316] 'Input-Spalte 1 zuweisen
Set rngInput2 = [G11:G316] 'Input-Spalte 2 zuweisen
Set wbkOutput = Workbooks.Open(strOutFile) 'Output-File öffnen
On Error GoTo errhandler
Set shtOutput = wbkOutput.Worksheets(strSheet) 'Output-Tabelle zuweisen
On Error GoTo 0
Set rngOutput1 = shtOutput.[B11:B316] 'Output-Spalte 1 zuweisen
Set rngOutput2 = shtOutput.[D11:D316] 'Output-Spalte 2 zuweisen
rngInput1.Copy 'Spalte 1 kopieren
rngOutput1.PasteSpecial xlAll 'als Wert einfügen
rngInput2.Copy 'Spalte 2 kopieren
rngOutput2.PasteSpecial xlAll 'als Wert einfügen
Application.CutCopyMode = False 'Kopiermodus beenden
shtOutput.Activate
shtOutput.Range("A1").Select 'go home
errhandler:
End Sub
Dank'
Harti