Tabelle hat nach speichern falsche Farben

Forumthread: Tabelle hat nach speichern falsche Farben

29.02.2008 14:37:00

mario

Hallo,
ich habe mal wieder ein Problem.
Mit einem Button in einer Userform wird das aktive Tabellenblatt gespeichert und dann versendet.
Leider wird das Blatt mit falschen Farben (siehe Bild unten) gespeichert.
1. An was kann das liegen?
2. wie können die Formeln beim speichern entfernt werden?


Public Sub Senden()
Dim Monat As String
Monat = ActiveSheet.Name
Dim Benutzername As String
Benutzername = Sheets("Übersicht").Range("Name3").Value
Dim MailAdresse As String
MailAdresse = ThisWorkbook.Sheets("Legende").Range("A75").Value
On Error GoTo Fehler
Application.DisplayAlerts = False
Dim olApp As Object
Dim AWS As String
Dim strhtml As String
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=VERZEICHNIS & Bericht1 & " " & Monat & ".xls"  'FileFormat:= _
xlNormal
AWS = ActiveWorkbook.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
HTML-Bereich
'Empfänger
.To = MailAdresse
'Betreff
.Subject = Bericht1 & " vom" & " " & Monat
'Nachricht
.HTMLBody = strhtml
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add VERZEICHNIS1 & Bericht1 & " vom" & " " & datDatum & ".xls"
.Attachments.Add AWS
.Send
End With
Set olApp = Nothing
ActiveWorkbook.Close
Fehler:
Application.DisplayAlerts = True
End Sub

Original: aktives Blatt
Userbild
....nach dem speichern

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle hat nach speichern falsche Farben

29.02.2008 23:32:00

fcs
AW: Tabelle hat nach speichern falsche Farben

01.03.2008 15:38:16

mario

AW: Tabelle hat nach speichern falsche Farben

29.02.2008 23:32:00

fcs

Hallo Mario,
zu 1. du hast in deiner Datei die Farbpalette für die Farben abweichend von deinen Standard-Einstellungen eingestellt. In der neuen Datei mit dem kopierten Tabellenblatt gilt dann wieder die Standard-Palette. Dadurch die Farbänderungen.
Im Makro muss du zusätzlich die Farbpalette von der Aktiven in die neue Arbeitsmappe übertragen.
zu 2. einfach in der neuen Datei im benutzten Datenbereich alles kopieren und mit Einfügen--Werte die Formeln durch ihre Werte ersetzen.
Ich hab mal deinen Code entsprechend ergänzt.
Damit man bei Fehlern im Makroablauf nicht ganz im Dunkeln tappt, werden Fehler-Nummer und Beschreibung in einer Meldung angezeigt.
Gruß
Franz


Public Sub Senden()
Dim wbAktiv As Workbook
Set wbAktiv = ActiveWorkbook
Dim wbNeu As Workbook, iI As Integer
Dim Monat As String
Monat = ActiveSheet.Name
Dim Benutzername As String
Benutzername = Sheets("Übersicht").Range("Name3").Value
Dim MailAdresse As String
MailAdresse = ThisWorkbook.Sheets("Legende").Range("A75").Value
On Error GoTo Fehler
Application.DisplayAlerts = False
Dim olApp As Object
Dim AWS As String
Dim strhtml As String
ActiveWorkbook.ActiveSheet.Copy
Set wbNeu = ActiveWorkbook
Application.ScreenUpdating = False
'Formeln durch Werte ersetzen
wbNeu.Worksheets(1).UsedRange.Copy
wbNeu.Worksheets(1).UsedRange.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'Farbpalette übernehmen
For iI = 1 To UBound(wbAktiv.Colors) ' Farben in Farbpalette, 56 bei Excel 97
wbNeu.Colors(iI) = wbAktiv.Colors(iI)
Next
Application.ScreenUpdating = True
wbNeu.SaveAs FileName:=VERZEICHNIS & Bericht1 & " " & Monat & ".xls"  'FileFormat:= _
xlNormal
AWS = wbNeu.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'   HTML -Bereich
'Empfänger
.To = MailAdresse
'Betreff
.Subject = Bericht1 & " vom" & " " & Monat
'Nachricht
.HTMLBody = strhtml
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add VERZEICHNIS1 & Bericht1 & " vom" & " " & datDatum & ".xls"
.Attachments.Add AWS
.Send
End With
Set olApp = Nothing
wbNeu.Close
GoTo Ende:
Fehler:
MsgBox "Fehler-Nr: " & Err.Number & " ist aufgetreten!" & vbLf & Err.Description
Ende:
Application.DisplayAlerts = True
End Sub

AW: Tabelle hat nach speichern falsche Farben

01.03.2008 15:38:16

mario

Dankeschön

Infobox / Tutorial

Tabelle hat nach Speichern falsche Farben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um sicherzustellen, dass deine Excel-Tabelle beim Speichern die richtigen Farben behält, kannst du die folgenden Schritte befolgen. Dieses Beispiel basiert auf dem VBA-Makro, welches bereits im Forum diskutiert wurde.

Öffne deine Excel-Datei und stelle sicher, dass das aktive Tabellenblatt die gewünschten Farben hat.
Öffne den VBA-Editor (Alt + F11).

Füge den folgenden Code ein:

Public Sub Senden()
   Dim wbAktiv As Workbook
   Set wbAktiv = ActiveWorkbook
   Dim wbNeu As Workbook, iI As Integer
   Dim Monat As String
   Monat = ActiveSheet.Name
   Dim Benutzername As String
   Benutzername = Sheets("Übersicht").Range("Name3").Value
   Dim MailAdresse As String
   MailAdresse = ThisWorkbook.Sheets("Legende").Range("A75").Value
   On Error GoTo Fehler
   Application.DisplayAlerts = False
   Dim olApp As Object
   Dim AWS As String
   Dim strhtml As String
   ActiveWorkbook.ActiveSheet.Copy
   Set wbNeu = ActiveWorkbook
   Application.ScreenUpdating = False
   'Formeln durch Werte ersetzen
   wbNeu.Worksheets(1).UsedRange.Copy
   wbNeu.Worksheets(1).UsedRange.PasteSpecial Paste:=xlValues
   Application.CutCopyMode = False
   'Farbpalette übernehmen
   For iI = 1 To UBound(wbAktiv.Colors)
       wbNeu.Colors(iI) = wbAktiv.Colors(iI)
   Next
   Application.ScreenUpdating = True
   wbNeu.SaveAs FileName:=VERZEICHNIS & Bericht1 & " " & Monat & ".xls"
   AWS = wbNeu.FullName
   Set olApp = CreateObject("Outlook.Application")
   With olApp.CreateItem(0)
       .To = MailAdresse
       .Subject = Bericht1 & " vom " & Monat
       .HTMLBody = strhtml
       .ReadReceiptRequested = False
       .Attachments.Add AWS
       .Send
   End With
   Set olApp = Nothing
   wbNeu.Close
   GoTo Ende:
Fehler:
   MsgBox "Fehler-Nr: " & Err.Number & " ist aufgetreten!" & vbLf & Err.Description
Ende:
   Application.DisplayAlerts = True
End Sub

Schließe den VBA-Editor und teste das Makro, um sicherzustellen, dass die Farben korrekt übernommen werden.

Häufige Fehler und Lösungen

Problem: Excel speichert Farben nicht korrekt.
- Lösung: Stelle sicher, dass die Farbpalette von der aktiven Arbeitsmappe in die neue Arbeitsmappe übertragen wird. Der bereitgestellte Code erledigt dies automatisch.
Problem: Formeln werden beim Speichern beibehalten.
- Lösung: Der Code ersetzt Formeln durch Werte, indem er den PasteSpecial Befehl verwendet. Achte darauf, dass dies im Code wie gezeigt implementiert ist.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du die Farben manuell speichern:

Farben manuell anpassen: Über die Registerkarte "Seitenlayout" kannst du die Farben der Zellen anpassen und gegebenenfalls eine benutzerdefinierte Farbpalette erstellen.
Als Vorlage speichern: Speichere die Datei als Excel-Vorlage (.xltx), um die Farbpalette für zukünftige Dateien zu nutzen.

Praktische Beispiele

Hier sind einige Beispiele, wie du mit verschiedenen Farbpaletten in Excel umgehen kannst:

Farbpalette für Marketingberichte: Erstelle eine Farbpalette, die zu deinem Unternehmensbranding passt, und speichere sie in einer Vorlage.
Visualisierung von Daten: Verwende Farben, um verschiedene Datenkategorien deutlich zu kennzeichnen. Achte darauf, dass du beim Speichern die Farben über das Makro überträgst.

Tipps für Profis

Excel eigene Farben speichern: Nutze die Farbpalette in Excel, um deine eigenen Farben zu definieren und zu speichern. Dies kann die Konsistenz in deinen Berichten erhöhen.
Outlook Farbe ändern: Achte darauf, dass die Farben auch in den E-Mails, die du sendest, konsistent wirken. Das kann durch Anpassungen in den Einstellungen von Outlook erfolgen.

FAQ: Häufige Fragen

1. Warum speichert Excel die Farben nicht wie erwartet?
Excel speichert Farben basierend auf der Farbpalette der aktiven Arbeitsmappe. Wenn du eine andere Palette verwendest, können die Farben abweichen.

2. Wie kann ich sicherstellen, dass meine Farben immer gleich bleiben?
Du kannst deine eigenen Farben speichern und eine Vorlage erstellen, die diese Farben verwendet, sodass sie bei jedem neuen Dokument zur Verfügung stehen.

Beliebteste Forumthreads (12 Monate)

Tabelle hat nach speichern falsche Farben

Forumthread: Tabelle hat nach speichern falsche Farben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Tabelle hat nach Speichern falsche Farben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread