Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalte koppieren

Inhalte koppieren
22.05.2009 14:28:30
Horst
Hallo
Ich möchte mit VBA einen Bereich eines Blattes in den gleichen Bereich eines anderen Blattes koppieren.
Allerdings nur die Inhalte und keine Formatierung oder Formeln .
Über "Makros aufzeichnen" habe ich auch einen funktionierenden Code bekommen. Allerdings alles mit Select und das, so habe ich mir sagen lassen ist nicht der beste Stil.
Leider funktioniert mein umgesetzter Code nicht bzw. er bringt eine Fehlermeldung.
Worksheets("Berechnung").Range("A16:Q26").Copy Worksheets("Test").Range("A16:Q26") _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Vielen Dank im Voraus für die Lösung.
Gruß Horst

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte koppieren
22.05.2009 14:32:42
Hajo_Zi
Hallo Horst,

Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet, es muß aber Tabelle1 aktiv sein
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub



Anzeige
AW: Inhalte koppieren
22.05.2009 14:55:17
Luschi
Hallo Hajo,
man kann Nonet's Vorschlag ohne Bedenken verwenden, denn dazu muß
Workbooks("Datei1.xls").Worksheets("Tabelle1") nicht aktiv sein.
Ich habe die Prozedur aus einer "Datei3.xls" gestartet und es wurde alles brav kopiert.
Gruß von Luschi
aus klein-Paris
drei Varianten
22.05.2009 15:38:09
Tino
Hallo,
hier mal drei Möglichkeiten.
Option Explicit
Sub Beispiel1()
    Worksheets("Berechnung").Range("A16:Q26").Copy
    Worksheets("Test").Range("A16").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

'oder auch so, diese würde ich beforzugen 
Sub Beispiel2()
    Worksheets("Test").Range("A16:Q26").Value = _
    Worksheets("Berechnung").Range("A16:Q26").Value
End Sub

'oder auch so 
Sub Beispiel3()
    Worksheets("Berechnung").Range("A16:Q26").Copy Worksheets("Test").Range("A16:Q26")
    Worksheets("Test").Range("A16:Q26").Value = Worksheets("Test").Range("A16:Q26").Value
End Sub


Gruß Tino

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige