Zellen in anderes Blatt mit format kopieren

Bild

Betrifft: Zellen in anderes Blatt mit format kopieren von: salti2000
Geschrieben am: 06.04.2005 13:37:42

Hallo an alle ich habe folgendes problem

ich möchte einen variablen bereich (range) in ein anderes tabellenblatt kopieren und zwar inklusive formatierung.

ich habe den bereichselektiert und möchte ihn mit diesem befehl ins andere blatt einfügen. das problem ist, dass ich nicht weiss wie ich den anderen blatt bereich anwähle. zb so

Range("E1:E23").Select
Selection.Copy
Worksheets("Ballance_Sheet").Cells(1, 3).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False

in der dritten zeile bekomme ich dann eine fehlermeldung weil er sagt er kann den bereich nicht auswählen.

habt ihr eine andere möglichkeit?
Range(Cells(41, 15), Cells(63, 14 + a)).Copy Worksheets("Ballance_Sheet").Cells(1, 3)
dies hat den nachteil, dass es die formatierung nicht mit nimmmt!

gruss stefan

Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: Tobias Marx
Geschrieben am: 06.04.2005 13:42:01

Servus!

Versuchs mal mit:
Worksheets("Ballance_Sheet").Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False

Gruss

Tobias


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: salti2000
Geschrieben am: 06.04.2005 13:48:03

Da bekomme ich immer die selbe fehlermeldung:

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden

Woran kann das liegen

lg stefan


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: Tobias Marx
Geschrieben am: 06.04.2005 13:49:43

Dann machen wirs eben mit zwei Anweisungen:
Worksheets("Tabelle1").Select
Range("C1").Select


Gruss

Tobias


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: salti
Geschrieben am: 06.04.2005 13:52:54

gut also das worksheets select nimmt er schon mal aber beim range immer noch die selbe meldung


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: Tobias Marx
Geschrieben am: 06.04.2005 13:54:40

Also das versteh ich garned... hast du wirklich richtig uebernommen?
Bei mir klappts naemlich so...
Statt Tabelle1 musst du natuerlich wieder deine Tabelle eintragen.

Gruss

Tobias


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: salti
Geschrieben am: 06.04.2005 14:04:49

so jetzt habe ich es mal in eine blanke arbeitsmappe eingeben und es kommmt die selbe meldung mit dem range kann was nicht stimmen!

Private Sub Worksheet_Calculate()
Range(Cells(1, 1), Cells(5, 2)).Select
Selection.Copy
Worksheets("Tabelle2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub



Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: Tobias Marx
Geschrieben am: 06.04.2005 14:08:48

Servus!

Hab deinen Quellcode nochmal untersucht, es muss heissen:
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

und nicht
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Also nix "xlPasteFormats" sondern nur "xlFormats"

Gruss

Tobias


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: salti
Geschrieben am: 06.04.2005 14:15:22

DAs Problem muss schon ganz wo anders liegen

Wenn ich dieses makro aufzeichne und dann in einen

Private Sub Worksheet_Calculate()

einfüge bekomme ich immer die selbe fehlermdlung wóran liegt das?

Range("A1:A6").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select an dieser stelle kommt der fehler!
ActiveSheet.Paste
Range("A6").Select


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: Tobias Marx
Geschrieben am: 06.04.2005 14:23:23

Servus!

Also, ich seh an dem Quellcode keinen Fehler, was auch immer da los sein mag. Ich wuerde das Sheets("Tabelle2").Select aber noch durch WorkSheets("Tabelle2").Activate ersetzen.

Gruss

Tobias


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: Ingo
Geschrieben am: 06.04.2005 14:46:13

Kann es sein, dass sich Excel bei einem Worksheet_Calculate ereignis weigert, einen range in einem anderen Sheet zu selektieren?
Icg hab bei mir 2 Subs geschrieben und dann gehts.

Private Sub Worksheet_Calculate()
Me.Range("A1:A&").Copy
Call einfügen
End Sub

im Modul des Worksheet
und in einem Normalen Modul

Sub einfügen()
Sheets("Tabelle2").Select
Range("C1").Select
Selection.PasteSpecial
Application.CutCopyMode = False
End Sub
Wenn ich richtig verstanden habe, sollen auch nicht nur die Formate sondern werte plus Formate kopiert werden. dann kann man auf das Paste = xlFormats verzichten


m f G
Ingo Christiansen


Bild


Betrifft: AW: Zellen in anderes Blatt mit format kopieren von: salti2000
Geschrieben am: 06.04.2005 14:50:58

Herzlichen dank das ist die lösung

und in dieser kombination gehts auch

Range(Cells(41, 15), Cells(63, 14 + a)).Select
Selection.Copy
Worksheets("Ballance_Sheet").Activate
Sheets("Ballance_Sheet").Range("C1").Select

aber nach dem akticieren brauchsts das select des sheets nochmals

danke an alle

stefan


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen in anderes Blatt mit format kopieren"