Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Auswahl in andere Arbeitsmappe kopieren, speichern, schließen

Gruppe

Interaktion

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.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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