Liebe Leute,
eine weitere Frage zu meiner aktuellen Aufgabe mit Excel haette ich noch.
- Ich kopiere eine Vorlage von einem Excel-Blatt in ein anderes. Dabei enthaelt die Vorlage eine Grafik, die leider nicht mitkopiert wird. Was mache ich falsch? Hier mein Code:
ActiveWorkbook.Sheets(„PO_template“).Activate
ActiveSheet.UsedRange.Select
Selection.Copy
’ activate the new one
Application.Workbooks(NewWorkbook).Activate
With Selection
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With
Gruss,
Martin
Hallo Martin,
ich kenne zwar den gesamten Zusammenhang nicht aber es klingt so, als wenn du ein Sheet komplett kopieren möchtest, dazu:
Sheets(thisSheet).Copy after:=Sheets(thisSheet)
wobei thisSheet den Namen des zu kopierenden Sheets enthält.
Sicherheishalber danach nochmal die Inhalte der Zellen kopieren, wie du es ohnehin schon machst, da beim Kopieren eines Sheets nur max 250 Zeichen je Zelle mitkommen.
Ansonsten bleibe noch die Alternative die Objekte auf dem Sheet separat zu kopieren. Falls das alle Shapes sind sollte man das über eine Schleife
for i=1 to Sheets(thisSheet).Shapes.Count
'select, copy
next
erreichen können.
Die erste Methode ist aber, außer dem 250 Zeichen Problem, sicherer, da mE alle Objekte und Eigenschaften des Sheets kopiert werden.
mfg
Dirk.Pegasus
Du untertreibst 
Sicherheishalber danach nochmal die Inhalte der Zellen
kopieren, wie du es ohnehin schon machst, da beim Kopieren
eines Sheets nur max 250 Zeichen je Zelle mitkommen.
Hallo Dirk,
habs grad mit Excel-VBA probiert, da werden 255 Zeichen pro Zelle mitgenommen. Sind beträchtlich mehr als 250
Hätte nicht gedacht dass beim Kopieren Daten verloren gehen.
Danke für den Hinweis.
Gruß
Reinhard
Jaja, Excel wird oft unter(über)schätzt owT
.