Office: Range direkt kopieren ohne Sheet zu aktivieren?

theonlyrobi · 28. April 2005

Hallo Leute,

um eine Berechnung nicht allzu lang dauern zu lassen und um sauberen Code zu schreiben, sollte man ja wenn möglich auf --> Select --> Copy --> Paste verzichten. Wenn ich den Inhalt einzelner Zellen zwischen verschiedenen Blättern kopieren will ist das ja auch kein Problem:
Code:

Sheets("Tabelle2").Cells(1, 1) = Sheets("Tabelle1").Cells(1, 1).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich jedoch einen Bereich kopieren will, klappt diese Vorgehensweise
Code:

Sheets("Tabelle2").Range(Cells(1, 1),Cells(10, 2)) = Sheets("Tabelle1").Range(Cells(1, 1),Cells(10, 2))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

leider nicht. Es kommt die Fehlermeldung "Anwendungs- oder objektdefinierter Fehler". Stattdessen muss ich auf --> Select --> Copy --> Paste zurück greifen:

Code:

Sheets("Tabelle1").Select
Sheets("Tabelle1").Range(Cells(1, 1),Cells(10, 2)).Select
Selection.Copy
Sheets("Tabelle2").Select
Sheets("Tabelle2").Range(Cells(1, 1),Cells(10, 2)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich denn auch beim Range-Objekt "sauberen" Code schreiben?

Robert

:)

User · 30. April 2005

Hallo Robert,

Code:

Sub Werte()
' Formeln ersetzen durch Werte ohne Formate
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False 'Zwischenspeicher löschen
End Sub

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

jinx · 30. April 2005

Moin, Robert,

der Copy-Befehl mag anscheinend keine R1C1-Schreibweise. Umgehen kann man das z.B. per

Code:

theonlyrobi · 30. April 2005

Hallo Leute,

danke für die Anregungen. Werde sie mal ausprobieren.

Robert

Office: Range direkt kopieren ohne Sheet zu aktivieren?

Range direkt kopieren ohne Sheet zu aktivieren?

Range direkt kopieren ohne Sheet zu aktivieren?

Range direkt kopieren ohne Sheet zu aktivieren?

Range direkt kopieren ohne Sheet zu aktivieren? - Similar Threads - Range kopieren Sheet

Excel Range als Bild in Word einfügen

Range Zellen kopieren, wenn Zielzelle leer

Mit VBA Range kopieren und an bestimmter Stelle einfügen

Range Array von einem Workbook in ein anderes kopieren

Range (letzte Spalte X+Y) kopieren und in die nächste freie Spalte einfügen

Auto. kopieren einer Range von einem Workbook in ein anderes - unterschiedliche Pfade

Range in Variable schreiben und Variable zurück in Zellen kopieren