Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1164to1168
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
Inhaltsverzeichnis

Schriftfarbe eines Zellenbereiches "merken"

Schriftfarbe eines Zellenbereiches "merken"
Martin
Hallo liebe Excelfreunde,
gibt es eine Möglichkeit, dass ich die Schriftfarben eines Zellenbereiches in einer Variable auslagern und später wieder dem Zellenbereich zuweisen kann?
Ich suche eine Lösung, die in folgende Richtung geht (nur leider klappt es so nicht):
Sub Formatierung()
Dim Formate As CellFormat
Formate = Range("A1:X45").Font.ColorIndex
'An dieser Stelle werden die Formatierungen für Druckvorgang geändert
Range("A1:X45").Font.ColorIndex = Formate
End Sub
Für Antworten wäre ich sehr dankbar.
Viele Grüße
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
wenn alle Zellen gleichen Font.Colorindex haben ..
25.06.2010 12:12:41
Matthias
Hallo
... geht das so, Martin
in ein Modul
Option Explicit
Public Formate
Sub Formatierung()
Formate = Range("A1:X45").Font.ColorIndex 'einlesen
'An dieser Stelle werden die Formatierungen für Druckvorgang geändert
Range("A1:X45").Font.ColorIndex = 6
End Sub
Sub Format_Zurueck()
Range("A1:X45").Font.ColorIndex = Formate
End Sub

Gruß Matthias
Nein, klappt leider nicht so...
25.06.2010 13:09:33
Martin
Hallo Matthias,
vielen Dank für deine Antwort. Leider klappt es jedoch nicht. Ein Makro wäre schon ausreichend, weil der Druckvorgang auch über das Makro gesteuert wird (die Formatierung muss also an keine öffentliche Variable übergeben werden). Ich glaube der Fehler liegt in der Definition oder Zuweisung der Variable "Formate".
Viele Grüße
Martin
Anzeige
AW: Fontfarben merken, nach Drucken zurücksetzen
25.06.2010 14:54:09
fcs
Hallo Martin,
so sollte es funktionieren. Die Schrift-Farbe jeder Zelle wird in einem Array gemerkt und nach dem Drucken wieder zugewiesen.
Gruß
Franz
Sub Formatierung()
Dim Formate() As Long, Zelle As Range, Bereich As Range
' Farben der Schriften merken
Set Bereich = Range("A1:X45") 'Bereich dessen Fontfarben gemerkt werden soll
With Bereich
ReDim Formate(.Row To .Row + .Rows.Count - 1, .Column To .Column + .Columns.Count - 1)
For Each Zelle In Bereich
Formate(Zelle.Row, Zelle.Column) = Zelle.Font.ColorIndex
Next
End With
Bereich.Font.ColorIndex = 1 'Farbe für das Drucken setzen
'Jetzt Drucken
ActiveSheet.PrintPreview
MsgBox "Pause" 'Testzeile
'Formatierungen nach Drucken zurücksetzen
With Bereich
Application.ScreenUpdating = False
For Each Zelle In Bereich
Zelle.Font.ColorIndex = Formate(Zelle.Row, Zelle.Column)
Next
Application.ScreenUpdating = True
End With
'Variablen zurücksetzen
Erase Formate
Set Bereich = Nothing: Set Zelle = Nothing
End Sub

Anzeige
AW: Fontfarben merken, nach Drucken zurücksetzen
25.06.2010 15:22:22
Martin
Hallo Franz,
vielen Dank für Deine Hilfe. Noch eine Frage zu Schluss: Warum müssen die Variablen am Ende des Makros zurückgesetzt werden, wenn diese nicht öffentlich sind und an kein anderes Makro übergeben werden?
Viele Grüße
Martin
AW: Fontfarben merken, nach Drucken zurücksetzen
25.06.2010 15:45:45
fcs
Hallo Martin,
das Zurücksetzen der Variablen ist kein muss, aber es gibt Tage da räum ich gerne selber auf und überlassen es nicht Excel beim Beenden für Ordnung zu sorgen.
Gruß
Franz

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige