Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

workbook.worksheet.copy ändert Farben, Wieso?

workbook.worksheet.copy ändert Farben, Wieso?
07.08.2018 09:15:06
Dexter701
Hallo,
ich möchte ein Tabellenblatt in einer seperaten Datei ausgeben.
Dazu verwende ich die folgende Methode, welche auch grundsätzlich funktioniert, mein Problem ist nur das die Zellefarben geändert werden.
Kann mir jemand sagen wo dran das liegt? bzw. wie ich es fixen kann?
Bin über jeden Ratschlag und Tip dankbar!
https://msdn.microsoft.com/de-de/vba/excel-vba/articles/worksheet-copy-method-excel
Gruß Dex

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 09:24:58
Matthias
Hallo
Pfad und Blattname bitte anpassen.
Die Farben bleiben bei mir.
Gruß Matthias
AW: Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 10:03:12
Dexter701
Hey,
also im Detail sieht das so und funktioniert auch! Nur wird bei dem neuen wb das Farbshema geändert und dadurch meine Farben :/
wbaktuell.Worksheets("XXX").Copy
With ActiveWorkbook
.SaveAs Filename:=publishpath & "\HP_" & Datumvar & "_" & kstvar & ".xlsx", FileFormat:=xlOpenXMLStrictWorkbook
.Close
End With
AW: Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 10:14:47
Daniel
HI
mal ne frage: was ist denn ein xlOpenXMLStrictWorkbook? normalerweise speichert man doch als xlOpenXMLWorkbook.
oder probier mal folgenden Workaround:
1. speichere die gesamte Datei mit SaveCopyAs
2. öffne diese Datei und lösche alle Sheets außer dem gewünschten.
Bleibt dann die Farbe erhalten?
kleiner Tip am Rande: bei SaveAs sollte man die Dateierweiterung im Dateinamen nicht mit angeben.
diese wird vom System automatisch und passend zum gewählten Dateityp hinzugefügt.
Gruß Daniel
Anzeige
AW: Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 10:37:04
Dexter701
gut beobachtet..hab den Wert aus der Tabelle und nur nach der Dateiendung gesucht.
ich dachte das die Farbänderung vllt damit behoben wird, war aber nicht der Fall.
Ich werd aber auf dein Weg zurück greifen :/
https://msdn.microsoft.com/de-de/vba/excel-vba/articles/xlfileformat-enumeration-excel
Danke für Hilfe!
AW: Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 10:47:59
Daniel
Hi
nein, das mit der Dateiendung ist nicht wirklich relevant und hat mit dem Problem auch nichts zu tun.
wenn du die richtige im Dateinamen hast, ist sowieso alles gut.
solltest du die falsche angeben, wird Excel beim Speichern die richtige anhängen und dann entsteht sowas wie: "Dein Dateiname.xlsx.xlsm"
Gruß Daniel
Anzeige
.Dateinendung Offtopic
07.08.2018 11:08:52
Dexter701
also hab es mal weggelassen.. die Dateiendung wurde nicht automatisch angefügt
arbeite mit Office 2016 365
AW: .Dateinendung Offtopic
07.08.2018 11:16:05
Daniel
HI
ich hab hier Office 2013 und da wird die Dateiendung automatisch vergeben, wenn sie nicht vorhanden ist.
Wenn ich sie dran lasse und sie falsch ist, bekomme ich eine Fehlermeldung.
Gruß Daniel
AW: .Dateinendung Offtopic
07.08.2018 11:20:31
Dexter701
ich kann mich erinnern das auch schon gehabt zu haben..
aber wie du sagst, solang sie stimmt wird da auch nix verrutschen
Gruß
AW: Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 11:09:35
Daniel
Hi
dann müsstest du das Farbschema mit kopieren.
(daher auch der Workaround, zunächst das ganze Workbook zu übernehmen und dann die nicht benötigten Blätter zu löschen, dann wird ggf das Farbschema mit kopiert)
oder probier mal einen anderen Workaround:
färbe die Zellen nicht mit den Farbschema-Farben, sondern über die direktvergabe des Farbwertes (im Untermenü: weitere Farben)
dann müssten die Farben unabhängig vom Farbschema sein und beim kopieren des Blattes erhalten bleiben.
Gruß Daniel
Anzeige
AW: Tabelle1.SaveAs Filename:="Test.xls"
07.08.2018 11:15:42
Dexter701
eigentlich habe ich die Farben direkt zugewissen.. ich verstehe nicht was da verrutscht
zum Glück gibt es ja immer viele Lösungen ;)
hab dein Vorschlag aber bereits umgsetzt und läuft!
Danke dir!

96 Forumthreads zu ähnlichen Themen

Syntax Spalte über Objekt Workbook - Worksheet ...
Peter

...
Guten Tag
Wie kann ich die einen bestimmten Bereich in einer Tabelle mittels Objekt Workbook und Objekt Worksheet ansprechen?
Im nachfolgenden Code funktioniert
With wbZiel.wsTab
nicht.
Danke für eine Antwort.
Gruss, Peter
Sub spaltenbreite2() Dim wbZiel As...
11.12.2008 09:11:14
Thread-ID: 1031920
3 Beiträge
Anzeige
Passwort in Worksheet
Sven

Hi
Wollte mit diesem Code das Blatt entsperren. Leider funktioniert es nicht so wie ich es wollte.
Worksheets("Lager").Unprotect , Password:="1w56"
Für Eure hilfe wäre ich froh
Gruß
Sven
14.03.2009 19:10:39
Thread-ID: 1060230
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige
this Workbook und auch this worksheets?
lisa

Hallo
Ich würde in meinem unten gezeigten Code gern auf die Bezeichnung des Tabellenblattes verzichten.
Wenn ich anstelle von,
ThisWorkbook.Worksheets("Donnerstag").Range("z13"). ,
ThisWorkbook.ThisWorksheets.Range("z13"). , einsetze klappte es nicht.
Kann man ohne Benennung...
16.11.2009 12:45:03
Thread-ID: 1117562
8 Beiträge
Error 1004 'Copy Method of Worksheet Class failed'
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Mit einem Messprogramm wird jeden Tag eine Datei mit einigen Hundert Werten in einem Ordner erstellt. Diese...
27.04.2010 10:05:48
Thread-ID: 1153991
18 Beiträge
ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter

Guten Tag
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
...
02.09.2010 08:55:46
Thread-ID: 1175368
5 Beiträge
in neuem Workbook zweites Worksheet einfügen
Peter

Guten Tag
Ich möchte in einem neu angelegten Workbook ein zweites Worksheet einfügen und dieses dann mit "Test" benennen. Mein Versuch ist fehlgeschlagen. Wer hilft mir weiter?
Danke und Gruss, Peter
Sub NeueTabelle() Dim wbNeu as Workbook, WS as Worksheet Set wbNeu = Workbooks.Ad...
19.09.2011 12:47:07
Thread-ID: 1230558
3 Beiträge
workbook / worksheet
Hartmut

Hallo liebes Forum
Ich habe zwei identische Macros in meiner Tabelle
ein mal wird das Macro beim öffne der Tabelle ausgeführt mit:
Private Sub Workbook_Open() 'mein code end if End Sub dann genau das gleiche Macro in der Tabelle bei calculate
Private Sub Worksheet_Calculate() '...
05.07.2012 09:26:00
Thread-ID: 1269972
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
2
4
13
7
17
4
2
7
6
2
2
1
5
2
3
5
5
1
9
7
2
2
3