Definierten Bereich nur mit Werten exportieren

Hallo zusammen,
ich habe hier eine mordsgroße Tabelle, die einen Haufen Formeln und Formatierungen enthält. In der wird gearbeitet. Wenn die Arbeit darin abgeschlossen ist, muss ich die ganze Tabelle in ein Fremdsystem einlesen lassen, wobei da nur die Werte, also nicht die dahinterliegenden Formeln, benötigt werden.
Momentan gehe ich hin, kopiere die ganze Tabelle, öffne eine leere Exceltabelle, gehe auf "Inhalte einfügen" und füge "Werte" ein. Das funktioniert tadellos.
Nur müsste man das doch mittels Makro automatisieren könne, oder? Ich habe die Ursprungstabelle jetzt mal komplett markiert und Ihr einen Namen zugewiesen. Und da verlassen mich die Ideen schon. Optimal wäre, wenn ich jetzt in der Ursprungstabelle einen Button hätte, der auf Knopfdruck den definierten Bereich nimmt und genau das tut, was ich oben beschrieben habe, also den Bereich in eine leere Tabelle einfügt, dabei jedoch nur die Werte einfügt.
Ich hoffe, ich konnte das halbwegs sinnig rüberbringen und jem,and kann damit was anfangen ;)
Grüße,
Kim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kim,
Momentan gehe ich hin, kopiere die ganze Tabelle, öffne eine leere Exceltabelle, gehe auf "Inhalte einfügen" und füge "Werte" ein. Das funktioniert tadellos.
Nur müsste man das doch mittels Makro automatisieren könne, oder?
Der Makrorekorder ist dein Freund! Stelle ihn an, mache genau das beschriebene. Es kommt dabei heraus:

Sub Macro1()
' Macro1 Macro
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Das ganze auf einen Button, fertig.
Wenn du ganz ordentlich sein willst, lässt sich der o.g. Code auch nochmal optimieren (ist halt "nur" Rekordercode).
Ein optimalerer Code könnte zB so aussehen, effizienter aber weniger intuitiv nachvollziehbar:

Sub Macro1()
ActiveSheet.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
End Sub

(Trick 17: durch das .copy des ganzen sheets wird der Focus gewechselt, in der zweiten Zeile ist also bereits das neue Blatt "active sheet". das .value = .value überschreibt dann die Formelinhalte mit Werten. UsedRange begrenzt das ganze auf beschriebenene Zellen, damit nicht unnötig Rechenzeit verbraten wird)
Grüße,
Klaus M.vdT.

Sub EXPORT() ' EXPORT Makro ' Tastenkombination: Strg+Umschalt+E ' Wähle die Zieltabelle aus Sheets("EXPORT").Select ' Markiere die gesamte Tabelle Cells.Select ' Lösche alle eventuell vorhandenen Daten Selection.ClearContents ' Kopiere aus dem Tabellenblatt 1 den gesamten definierten Bereich "Bereich1" Worksheets("Tabellenblatt1").Range("Bereich1").Copy ' Füge den kopierten Bereich an Position A1 in die Zieltabelle ein (Nur Werte und _ Zahlenformate) Worksheets("EXPORT").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' Kopiere aus dem Tabellenblatt 2 den gesamten definierten Bereich "Bereich2" Worksheets("Tabellenblatt2").Range("Bereich2").Copy ' Füge den kopierten Bereich an Position A2000 in die Zieltabelle ein (Nur Werte und _ Zahlenformate) Worksheets("EXPORT").Range("A2000").PasteSpecial Paste:=xlPasteValuesAndNumberFormats End Sub

Sub aaa() Application.ScreenUpdating = False ActiveSheet.Copy With ActiveSheet .Cells.Copy .Cells(1, 1).PasteSpecial xlPasteValues .Parent.SaveAs "c:\temp\" & .Name 'anpassen .Parent.Close End With End Sub

Beliebteste Forumthreads (12 Monate)

Definierten Bereich nur mit Werten exportieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread