datei oeffnen

Sub Copy2Wkb()
Dim wkb As Workbook
Dim wks As Worksheet
Dim rng As Range
On Error Resume Next
Set wkb = Workbooks("Test.xls")'TEXT.XLS muss schon geoeffnet sein
If Err > 0 Or wkb Is Nothing Then
Beep
MsgBox _
prompt:="Es ist keine Testdatei geöffnet!"
Exit Sub
End If
Set wks = wkb.Worksheets("GSM_Daten")
If Err > 0 Or wks Is Nothing Then
Beep
MsgBox _
prompt:="Die Testdatei enthält das Zielblatt nicht!"
Exit Sub
End If
Set rng = wkb.Worksheets("GSM_Daten").Range("C12")
Selection.Copy rng
Application.CutCopyMode = False
wkb.Close savechanges:=True
End Sub