Supportnet / Forum / Tabellenkalkulation

Guten Morgen, ich habe folgendes Problem: Ich will ein komplettes Tabellenblatt inklusive Formatierung in eine neue Datei kopieren. Dabei sollen allerdings nur die Werte und nicht die Formeln kopiert werden. Im Augenblick habe ich dafür ein Makro, das erst den Bereich makiert, dann kopiert, dann eine neue Datei erstellt und und über pasteSpecial die Werte einträgt. Dabei gehen dann leider die Formatierungen der Seite verloren. zur Zeit sieht das Makro so aus: Sheets("bericht").Select Cells.Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Hat jemand einen Vorschlag, was ich ändern muss, damit ich auch die Formatierung übergeben kann?? bin für jede Hilfe dankbar Gruss Casy

Schau doch einfach mal unter

https://supportnet.de/threads/1162292

Ich denke, das löst Dein Problem.

Schönen Gruß
A\F

Hi Casy,

nachfolgender Code kopiert Dir alle Zellen aus dem Blatt "bereicht" und fügt nur die Werte ohne Formeln aber mit allen Formatierungen in einer neuen Datei ein.

Sheets("bericht").Cells.Copy
Workbooks.Add
With Range("A1")
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteValues
End With

Ich hoffe, der Code lößt Dein Problem. Wenn nicht, dann melde DIch noch mal.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke für Eure Hilfe.

Die Variante von Coros schien mir die einfachere, hab sie daher als erstes probiert. - FUNKTIONIERT :-)

Wenn Ihr mir jetzt noch verraten könnt, wie ich in der neuen Datei die Gittenetzlienien ausschalten kann, habe ich meine Datei zusammen.

Gruß Casy

Hi Casy,

freut mich, das Dich meine Lösung weitergebracht hat. Die Gitternetzlinien kannst Du unter Daten => Seite einrichten und dann im Registerblatt Tabelle unter dem Punkt Drucken => Gitternetzlinien deaktivieren.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
danke für die Antwort, aber ich glaube du hast mich etwas missverstanden. Wie ich grundsätzlich die Linien ausschalte ist mir klar. Ich möchte die Linien auch über das Makro ausschalten.

Gruss Carsten

Hallo Casy,
falls coros hier nicht mehr vorbeikommt:
die Gitternetzlinien klemmst Du ab mit:

ActiveWindow.DisplayGridlines = False

MfG
schnallgonz

Ein Erfahrener ist besser als 10 Gelehrte.
Signatur und Textformatierungen wurden mit SNTool V1.2.14 erstellt

Hi schnallgonz,

danke das Du mir die Arbeit abgenommen hast. Was bekommst Du dafür. ;-))

@Carsten alias Casy: Ich habe Dich nicht Mißverstanden, Du hast dass dann wohl in Deiner Frage etwas unklar gestellt. Dort wurde nur gefragt, wie man die Gitternetzlinien ausschalten kann. Von automatisch stand da nichts. Und dann kommt nur die normale Lösung ohne VBA.

Danke Dir trotzdem für Deine Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Danke an Schnallgonz,

@ Coros: Hast ja recht, ich war halt geistig noch in der Fortführung meiner ersten Frage ;-)

Danke an ALLE für Eure Hilfe, und wenns wieder mal klemmt weiß ich ja wo man geholfen kriegt ;-)

Gruss Casy

• Brauche hilfe bei Excel Makro
• Problem mit Makro Code
• Formatübernahme Serienbrief Vista
• kopieren mit Autofilter
• Syntaxfehler im Macro