Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hervorheben von Zellen, aber nicht mit drucken.

Hervorheben von Zellen, aber nicht mit drucken.
29.03.2006 12:46:46
Zellen,
Ich möchte einige Zellen für eine bessere Übersichtlichkeit beim Arbeiten mit der Datei hervorheben (z.B. in einer anderen Farbe). Gibt es die Möglichkeit, diese Hervorhebungen dann aber nicht mit zu drucken?
So ähnlich wie bei Word, wenn man mit Formular-Textfeldern arbeitet. Dort hat man die Möglichkeit, die Eingabefelder grau zu hinterlegen. Ich möchte allerdings in Excel keine Formularfelder verwenden, sondern wirklich die Zellen hervorheben.
Danke und Gruß,
Stefan

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 13:19:40
Zellen,
Hi Stefan,
ungetestet:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim z, f, Zelle, anz, n
Cancel = True
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex <> xlNone Then
anz = anz + 1
ReDim Preserve z(anz)
ReDim Preserve f(anz)
z(anz) = Zelle.Address
f(anz) = Zelle.Interior.ColorIndex
End If
Next Zelle
ActiveSheet.PrintOut
For n = 1 To anz
Range(z(n)).Interior.ColorIndex = f(n)
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 13:37:39
Zellen,
Vielen dank für die Antwort. Ich weiß allerdings nicht genau, wo ich das Einfügen muss. Hab es in Visual Basic Editor unter dem Tabellenbaltt gespeichert, da funktioniert es aber nicht?! Es gibt zwar auch keine Fehlermeldung, aber der Druck ist nachwievor farblich unterschiedlich.
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 13:44:46
Zellen,
Hi Stefan,
lösche es dort, Doppelklick links auf "DieseArbeitsmappe", da gehört der Code rein.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 14:12:10
Zellen,
Vielen dank für die schnelle Antwort. Leider gibt es jetzt einen Fehler.
Das Prgramm gibt einen "Laufzeitfehler 13" aus: "Typen unverträglich"
Beim Debuggen zeigt er einen Fehler an in der folgenden Zeile:
ReDim Preserve z(anz)
Gruß,
Stefan
Anzeige
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 14:29:51
Zellen,
Hi Stefan,
so scheint es zu klappen:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim z(), f(), Zelle, anz, n
Cancel = True
Application.EnableEvents = False
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex <> xlNone Then
anz = anz + 1
ReDim Preserve z(anz)
ReDim Preserve f(anz)
z(anz) = Zelle.Address
f(anz) = Zelle.Interior.ColorIndex
End If
Next Zelle
ActiveSheet.PrintOut
For n = 1 To anz
Range(z(n)).Interior.ColorIndex = f(n)
Next n
Application.EnableEvents = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 14:37:11
Zellen,
Hallo Reinhard,
sorry, dass ich Dich nochaml belästigen muss, aber es funktioniert immer noch nicht so richtig. Weiß nicht, ob ich vielleicht nochwas beachten muss.
Die Fehlermeldung ist weg und das Drucken funktioniert wieder, aber die Farbe ist nachwievor da. Darf ich da vielleicht nur eine bestimme Füllfarbe nehmen oder muss ich vielleicht noch etwas anderes beachten?
Vielen Dank schon einmal!
Gruß,
Stefan
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 14:42:59
Zellen,
Hi stefan,
nö, Fehler lag bei mir.
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim z(), f(), Zelle, anz, n
Cancel = True
Application.EnableEvents = False
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex <> xlNone Then
anz = anz + 1
ReDim Preserve z(anz)
ReDim Preserve f(anz)
z(anz) = Zelle.Address
f(anz) = Zelle.Interior.ColorIndex
Zelle.Interior.ColorIndex = xlNone
End If
Next Zelle
ActiveSheet.PrintOut
For n = 1 To anz
Range(z(n)).Interior.ColorIndex = f(n)
Next n
Application.EnableEvents = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 15:48:20
Zellen,
Suuuuuuuuppppper!!!! Vielen Dank, es funktioniert einwandfrei!
Gruß
Stefan
AW: Hervorheben von Zellen, aber nicht mit drucken
29.03.2006 16:13:13
Zellen,
Hallo Stefan,
wieso spendierst Du den betreffenden Zellen nicht eine 'bedingte Formatierung'? Also z.B. 'gelb wenn Zelle A1=1' und vor dem Ausdrucken gibst Du dann A1=0 (ggf. mit BeforePrint).
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige