HERBERS Excel-Forum - die Beispiele

Thema: Auswahl in andere Arbeitsmappe kopieren, speichern, schließen

Home

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.

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Interaktion

Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
allgemein allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
allgemeingültig Blattschutz aufheben allgemeine Frage...
Solver - allgemein Solver - allgemein
Frage zum Forum allgemein Allgemeine Frage - Finanz-Planungsmodell
Pivoteingrenzung Formel verallgemeinern makro verallgemeinern
Office allgemein, bitte hilfe allgemein
Allgemeine Frage zu Makro Komprimieren möglich? Allgemeine Frage
bedingte Formatierung allgemein Fehlersuche allgemein
Wie baut man ein allgemeines richtig Modul ein? Add-In mit Interaktion
Makro allgemein zur Verfügung stellen Allgemeine Forum-Frage: Kennwort ändern ?
VBA allgemein Makro allgemein anwenden
Sorry, allgemein allgemeine Frage
Ein paar allgemeine Fragen Allgemeine Fragen zu UserForm
Excelhilfe - Syntax - allgemein Allgemein gültiges Makro/Skript für Hauptmenü
Allgemein gültige Funktionen Zellenangabe in Allgemeine Form umschreiben
VBA-Fragen im allgemeinen... Allgemeines zu VBA und VB
allgemeine Laufvariable für While-Schleife? VBA-Diagramm-Interaktion
Allgemeine Msgbox Import aus Query: Allgemeiner Fehler
Verknüpfung verallgemeinern allgemeine frage
allgemeine Schriftart ändern Gibt es ein allgemeines Verzeichnis?
excel_allgemein Nochmal an die Allgemeinheit
Allgemeine Blattbezeichnung im Makro Excel allgemein..VLOOKUP
Allgemeines zu Klassenmodulen Ordner für Allgemein Vorlagen umstellen