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"