Gruppe
Allgemein
Problem
Ausgewählte Zellwerte sollen in eine geöffnete Arbeitsmappe in ein vorgegebenes Blatt ab Zelle C12 kopiert werden. Danach soll die Zielarbeitsmappe gespeichert und geschlossen werden, ohne das eine Rückfrage irgendwelcher Art erfolgt.
StandardModule: Modul1
Sub Copy2Wkb()
Dim wkb As Workbook
Dim wks As Worksheet
Dim rng As Range
On Error Resume Next
Set wkb = Workbooks("Test.xls")
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