wahrscheinlich nur eine banale Frage, aber ich bekomme es schlichtweg nicht hin und im Netz finde ich auch nicht wirklich eine konkrete Lösung…
Ich möchte ein Formular mittels Excel erstellen. In bestimmten Feldern soll eine Eingabe durch die entsprechenden Nutzer erfolgen. Diese Felder möchte ich nun farbig markieren, damit auch wirklich jeder Depp sieht „Aaaah, hier muss ich noch was eintragen!“.
FRAGE: Wie bekomme ich diese Felder, sozusagen in der „Monitor-Ansicht“ farbig markiert, aber beim Ausdruck soll keine Farbe gedruckt werden (hier soll im Grunde so gedruckt werden, als wenn man die entsprechenden Felder überhaupt nicht farbig unterlegt hätte)?
Ich hoffe ich habe mein Vorhaben präzise genug beschrieben und danke für die Antworten bereits im Voraus. Vielen, vielen Dank.
benutze doch einfach die Formularfelder, diese sind automatisch hervorgehoben und diese können auch gesperrt werden. So kann kein Benutzer versehentlich das Dokument beschädigen und es geht klar daraus hervor, dass Eingaben gemacht werden müssen…
Grüße Holger
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
wenn du beim einrichten der Seite einfach auf Schwarzweißdruck umstellst (Hacken setzen) sind alle farbigen Hervorhebungen weg und es kommt ein reiner Schwarzweißdruck raus.
Ich hoffe das klärt dein Problem.
Grüße: Günter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Frank,
das bekommst Du nur bei einem reinen schwarz/weiß-Druck realisiert. Du kannst in Deinem Formular die Felder farblich hinterlegen gehst dann in Datei-> Seite einrichten auf den Reiter Tabelle und setzt dort den Haken schwarz/weiß-Druck, dann werden beim Druck alle Farben ignoriert.
Eine andere Möglichkeit kenne ich nicht.
Gruß
Chun44
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Meines Wissens lässt sich das nur mit einem Makro realisieren.
Aus meinem Stammforum habe ich folgendes Makro erhalten:
(kannst du auch hier downloaden: http://c.excelhost.de/c_beverly/getfile.php?id=114
Du musst nur noch die Worksheets(„Tabelle1“) mit deinem Tabellennamen anpassen, sofern sie nicht auch Tabelle1 heißt
Hoffe du kommst mit VBA/Makros klar…
Sub druck_ohne_farbe()
Dim arrWerte() ’ Variable für Array
Dim raZelle As Range ’ Variable für die Zelle als Range
Dim loZaehler As Long ’ Schleifenzähler
Dim loZaehler2 As Long ’ Schleifenzähler
’ Bildschirmaktualisierung aus
Application.ScreenUpdating = False
’ Ausfürhugn in Tabelle1
With Worksheets(„Tabelle1“)
’ Schleife über jede Zelle des benutzten Bereichs
For Each raZelle In Worksheets(„Tabelle1“).UsedRange
’ Zelle ist mit einer Füllfarbe formatiert
If raZelle.Interior.ColorIndex xlNone Then
’ Array dynamisch erweitern
ReDim Preserve arrWerte(0 To 2, 0 To loZaehler)
’ Einlesen der Zelladresse in das Array
arrWerte(0, loZaehler) = raZelle.Address
’ Einlesen der Füllfarbe in das der Zelle in das Array
arrWerte(1, loZaehler) = raZelle.Interior.ColorIndex
’ Füllfarbe der Zelle zurüksetzen
raZelle.Interior.ColorIndex = xlNone
’ Schleifenzähler um 1 erhöhen
loZaehler = loZaehler + 1
End If
Next raZelle
’ Tabelle drucken
.PrintOut
’ Schleife über alle Elemente des Arrays
For loZaehler2 = 0 To loZaehler - 1
’ Zurückübertragen der ausgelesenen Füllfarben
.Range(arrWerte(0, loZaehler2)).Interior.ColorIndex = arrWerte(1, loZaehler2)
Next loZaehler2
End With
’ Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Alternative:
Eingabe der Daten über eine Maske:
Menü „Daten/Maske…“
Das erfordert jedoch gewisse Voraussetzungen (Liste mit Spaltenüberschriften), die das Formular erfüllen muss.
ich war in Urlaub und komme deswegen erst jetzt dazu zu antworten. Vielleicht hat sich’s schon erledigt, ich antworte trotzdem kurz:
Man kann jede Zelle speziell färben, sowohl den Hintergrund, als auch die Gitternetzlinien unter „Format/Zellen…“
Wenn man dann unter Druckvorschau den Button „Layout“ und dort „Tabelle“ anklickt, kann man einstellen „Schwarz-weiß-Druck“ und alle farbigen Markierungen erscheinen nicht beim Ausdruck…
VG
Christian Tschoepke
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
