Hallo,

ich kopiere den Inhalt bestimmter Zahlen in ein neues Tabellenblatt, nun möchte ich aber, das auch die Formatierungen beibehalten werden. Wie kann ich das machen? Also Schriftart, Hintergrundfarbe, Schriftfarbe sollen beibehalten werden.

Hier mal mein Code:

Code :

1 2 3

Worksheets(1).Cells(1, 1).Select         Selection.Copy         Sheets(2).Cells(1, 1).Value = Selection

Gruß KlaDi.

ich würde mit dem Range objekt arbeiten dies ist schneller und hat etwas mehr eigenschaften glaube ich
und dann sieht das das ganze ungefähr so aus :

Code vb:

1 2 3 4

Worksheets(1).Range("A1:G7").Select     Selection.Copy     Sheets("Tabelle2").Select     Range("B2:E8").Select

Grüsse bb

Hallo,

ich hab den Code jetzt so umgestellt:

Code :

1 2 3 4 5

Worksheets(1).Range("A" & Zufallsarray(i) & ":C" & Zufallsarray(i)).Select         Selection.Copy         Sheets(2).Select         Range("A" & i + 1 & ":C" & i + 1).Select         ActiveSheet.Paste

Jedoch bekomme ich den Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler.
Das ganze läuft in einer For-Schleife ab und wird mehrmals wiederholt. Den ersten Eintrag bekomme ich nur danach bricht das Programm ab. Woran kann das liegen?

Gruß KlaDi.

Oh, ich habs.

So sieht es jetzt aus:

Code :

1 2 3 4 5 6

Sheets(1).Select         Worksheets(1).Range("A" & Zufallsarray(i) & ":C" & Zufallsarray(i)).Select         Selection.Copy         Sheets(2).Select         Range("A" & i + 1 & ":C" & i + 1).Select         ActiveSheet.Paste

Gibts dafür auch ne möglichkeit ohne den copy befehl?