Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen kopieren (mit Formatierung)

Betrifft: Zellen kopieren (mit Formatierung) von: Yves
Geschrieben am: 08.08.2008 14:09:18

Hallo zusammen,

ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:

sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value

Somit wurden einfach nur die Werte 'kopiert'. Nun würde ich gerne die Formatierungen (Schriftart, Fett, Schriftgrösse etc.) mitkopieren. Würde dies aber gerne ohne Select machen, da es sich um relativ viele Daten handelt und das Makro mittels Select endlos langsam würde.

Hat mir jemand einen Tipp wie ich weiterkomme?

Vielen Dank

Gruss
Yves

  

Betrifft: AW: Zellen kopieren (mit Formatierung) von: selli
Geschrieben am: 08.08.2008 14:20:00

hallo ives,

folgendes geht nicht nur mit files oder folder, sondern auch mit zellen:

Copy-Methode


Beschreibung

Kopiert eine angegebene Datei oder einen angegebenen Ordner von einem Ort an einen anderen.

Syntax

Objekt.Copy Ziel[, überschreiben]

Die Syntax der Copy-Methode besteht aus folgenden Teilen:

Teil Beschreibung
Objekt Erforderlich. Immer der Name eines File- oder Folder-Objekts.
Ziel Erforderlich. Das Ziel, an das die Datei oder der Ordner kopiert werden. Platzhalterzeichen sind nicht zulässig.
überschreiben Optional. Boolescher Wert, der True ist (Voreinstellung), wenn vorhandene Dateien oder Ordner überschrieben werden sollen, bzw. der False ist, wenn sie nicht überschrieben werden sollen.



Anmerkungen

Die Ergebnisse der Copy-Methode für ein File- oder Folder-Objekt sind mit den Operationen identisch, die bei der Verwendung von FileSystemObject.CopyFile oder FileSystemObject.CopyFolder durchgeführt werden, bei denen die Datei oder der Ordner, auf die/den durch Objekt verwiesen wird, als Argument weitergegeben werden. Sie müssen allerdings beachten, daß die alternativen Methoden in der Lage sind, mehrere Dateien oder Ordner zu kopieren


gruß selli


  

Betrifft: also so: von: selli
Geschrieben am: 08.08.2008 14:33:18

Sheets("Tabelle1").Cells(1, 1).Copy Sheets("Tabelle2").Cells(5, 1)

gruß selli


  

Betrifft: AW: also so: von: Yves
Geschrieben am: 08.08.2008 14:37:18

Hallo Selli,

super, vielen Dank für die prompte Lösung.

Gruss
Yves


  

Betrifft: AW: Zellen kopieren (mit Formatierung) von: hary
Geschrieben am: 08.08.2008 14:31:32

Hallo Tom


Sheets("Tabelle1").Cells(1, 1).Copy Sheets("Tabelle2").Cells(5, 1)


Gruss Hary


  

Betrifft: AW: sry, falsche Anrede owT von: hary
Geschrieben am: 08.08.2008 14:36:27

.


  

Betrifft: AW: Zellen kopieren (mit Formatierung) von: Yves
Geschrieben am: 08.08.2008 14:37:48

Hallo Hary,

vielen Dank für die prompte Lösung.

Gruss
Yves


  

Betrifft: AW: Zellen kopieren (mit Formatierung) von: Daniel
Geschrieben am: 08.08.2008 20:06:12

Hi

kleiner Hinweis: dieser Code kopiert Formeln, keine Werte.
dh. wenn die Quelldatei aus Formeln besteht und du nicht die Formeln, sondern die Werte kopiern willst, dann musst du es so machen:

Sheets("Tabelle1").Cells(1, 1).Copy
Sheets("Tabelle2").Cells(5, 1).pastespecial xlpastevalues
Sheets("Tabelle2").Cells(5, 1).pastespecial xlpasteformats

Gruß, Daniel


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen kopieren (mit Formatierung)"