Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zellen Inhalt beim Druck anders Darstellen
#1
Hallo zusammen,

ich habe ein Problem und vielleich kann mir jemand von euch weiter helfen.
Und zwar führe ich einen Einstazplan in dem jeder MA mit seinem Stundeneinsatz geführt wird.
Für abwesende Tage setzte ich Buchstaben ein (U=Urlaub - F=Freizeit - K=Krank etc.
Allerdings dürfen nun aus Datenschutz Gründen bei der Gedruckten (Ausgehangenen) Version kein U oder F oder stehen, sonder nur noch ein A für Abwesend.

Meine Frage ist nun wie ich das einstellen kann, evtl. auch über eine VBA lösung, dass die Zellen in dennen U-F-K steht nur mit einem A gedruckt werden.
Hier ein Beispiel:
?mage

Ich hoffe ich konnte mein problem verdeutlichen und jemand kann mir weiter helfen.

MfG
Tyler
Antwortento top
#2
Hallo,

es gibt mit "NumberFormat" die Möglihkeit einen vom Wert der Zelle unabhängigen Anzeigetext zu definieren.

mfg

(von Hand zu mühsam, mit vba ok)
Antwortento top
#3
Du kanns eine andere Tabelle Verknüpfen und dort die Verknüpfung vorher prüfen...

Arbeitsblatt mit dem Namen 'Tabelle2'
AB
1
20Montag

ZelleFormel
A2=WENN(ODER(Tabelle1!A2="K";Tabelle1!A2="U");"A";Tabelle1!A2)
B2=WENN(ODER(Tabelle1!B2="K";Tabelle1!B2="U");"A";Tabelle1!B2)
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg


Angehängte Dateien
.xlsx   anders Drucken.xlsx (Größe: 16,53 KB / Downloads: 0)
Eine Menge reden, aber nichts sagen können viele...
Antwortento top
#4
Wie wäre es mit einer kopie deines Plans im gleichen tabellenblatt und als druckbereich fixiert. Hatte das auch kürzlich.

Ist zwar nicht so felxibel aber für den anfang ok.

=WENN(deine Zelle="F";"X";WENN(deine Zelle="U";"X";WENN(deine Zelle="K";"";deine Zelle)))

bei uns steht das "X" für abwesend.
die Buchstaben in den Anführungszeichen kannst du nach deinen wünschen Anpassen.

datei findest du hier:
http://www.clever-excel-forum.de/Thread-...ichtplaner
Antwortento top
#5
Hallo,

ich hatte mir das so vorgestellt:

Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim c As Range

For Each c In Sheets(1).Cells(3, 2).CurrentRegion.SpecialCells(2, 2)
   If Len(c) = 1 Then c.NumberFormat = ";;;""A"""
Next c
End Sub

mfg

(und wie man es wieder zurück setzt, kommt in der nächsten Sendung)


Angehängte Dateien
.xlsm   Anonym zum Drucken.xlsm (Größe: 14,91 KB / Downloads: 3)
[-] Folgende(r) 1 Benutzer sagt Danke an Fennek für diesen Beitrag:
  • Tyler
Antwortento top
#6
(06.09.2018, 19:44)Fennek schrieb: (und wie man es wieder zurück setzt, kommt in der nächsten Sendung)

... Noch 'n Toast, noch 'n Ei, ... 19

Gruß Uwe
Antwortento top
#7
Moin!
Warum einfach wenn es auch schwierig geht?  21

Ausgangsposition:
ABCDEF
1MAMoDiMiDoFr
2MA1F8888
3MA288888
4MA38KK88
5MA488888
6MA588UU8
7MA688888
8MA7SSS88
9MA888488
Makro zum ausdrucken, Rückstellung natürlich  15 mit drin:
Sub AusdruckDatenschutz()
With Range("B2:F9") 'Datenbereich anpassen! 
    .NumberFormat = "General;;;""A"""
    .Parent.PrintOut
    .NumberFormat = "General"
End With
End Sub

Ausdruck sieht dann so aus:
ABCDEF
1MAMoDiMiDoFr
2MA1A8888
3MA288888
4MA38AA88
5MA488888
6MA588AA8
7MA688888
8MA7AAA88
9MA888488

ZelleFormatWert
B2Standard;;;"A"F

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Benutzer sagt Danke an RPP63 für diesen Beitrag:
  • Tyler
Antwortento top
#8
Ach so:
Wie man evtl. bed. Form. (für jeden Buchstaben eine verschiedene Hintergrundfarbe) temporär ändert und wieder zurückstellt (denn der WERT ändert sich ja bewusst NICHT mit dem Zahlenformat), kommt dann in der nächsten Sendung!  05

Vorher will ich aber eine anonymisierte Datei und keinen Screenshot vorliegen haben.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 2 Benutzer sagt Danke an RPP63 für diesen Beitrag:
  • Tyler, Frogger1986
Antwortento top
#9
Moin zusammen,

das werde ich gleich mal testen.
DANKE 71

Gerne würde ich auch eine Anonymisierte Datei machen, kenne das nur nicht. Sorry. 91

Grüße und DANKE
Antwortento top
#10
Hi

hier einmal ein Teil der Datei Anonym.
Ich hoffe das ist aussreichend.

Der Test hat gut funktioniert, allerdings möchte ich immer nur die folge Woche Drucken und nicht den Gesamten Jahresplan.

Danke nochmal

LG
Tyler


Angehängte Dateien
.xlsx   Einsatzplan Anonym.xlsx (Größe: 38,98 KB / Downloads: 3)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste