Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zelleninhalt bei Ausdruck ausblenden





Frage

Hallo an alle , Ich habe da wieder mal ein "kleines" Problem. Ich habe eine mehrfarbige Eingabemaske, aber der Ausdruck soll schwarz-weiss sein. Bestimmte Zelleninhalte die man in der Eingabemaske sieht sollen auf dem Ausdruck aber nicht erscheinen. Ich habe es mit weisser Schrift in der Maske versucht aber es wird immer schwarz gedruckt. (Jetzt habe ich die Eingabemaske nochmal in s/w erstellt, dann geht es mit weisser Schrift.) Aber mit Farbe ist es vor Kunden einfach schöner!!! kann mir jemand einen Tipp geben? wird dankend angenommen. bis bald viele Grüsse Ulli

Antwort 1 von rainberg

Hallo Ulli,

das kannst du doch im Druckdialog einstellen.
Die Option Schwarz-Weiß-Druck hat meines Wissens jeder Drucker.

Gruß
Rainer

Antwort 2 von Ulli

Hallo rainberg,

Danke für Deine Hilfe.
Aber ich glaube ich habe mich zu undeutlich ausgedrückt, denn die Kernfrage war wie ich Zelleninhalte die in der Eingabemaske stehen beim Drucken ausblenden kann.

(Ich habe mir das da oben noch mal durchgelesen, ist wirklich ein bisschen wirr geschrieben)

Also auf dem Bilschirm zelleinhalte sehen können
Auf dem Ausdruck sollten diese Zellen aber ausgeblendet sein.

Gruss
Ulli

Antwort 3 von Zardoz

Hi Ulli,

was ich nicht verstehe, wenn die Zelle in der ein Wert steht farblos ist und du dem Inhalt der Zelle weiße Schrift zuordnest, dann sollte auch bei einem Farbdrucker eine leere weiße Zelle auf dem gedruckten Blatt erscheinen.

Gruß Dotzi

Antwort 4 von rainberg

Hallo Ulli,

kannst du mir ein Muster schicken, um zu sehen was du unter Eingabenmaske verstehst?

rainberg@freenet.de

Gruß
Rainer

Antwort 5 von want2cu

Hallo,
wie wäre es, wenn du ein Makro aufzeichnest, mit dem du vor dem Drucken die enstsprechenden Einstellungen für die gewünschten Zellen vornimmst, dann druckst und danach die Zelleinstellungen wieder zurücksetzt?
Dann dieses Makro entweder auf ein Icon legen oder als benutzerdefinierte Schaltfläche in die Tabelle integrieren.

CU
want2cu

Antwort 6 von Ulli

Hallo Zardoz,
Danke für Deine Hilfe.
Ja wenn Die Zelle weiss ist und die Schrift auch dann kann ich Drucken ohne das der Zelleninhalt erscheint.

Aber meine Mitarbeiter und ich würden gerne die Farbige Version (Zellen grün unterlegt)bearbeiten, ausserdem sagen die Mitarbeiter sie möchten die Zahlen in den Zellen sehen.
Nur der Kunde soll Sie auf dem Ausdruck nicht sehen.

Ich glaube es ist schwer zu erklären.
trotzdem angekommen?

grüsse
Ulli

Antwort 7 von Ulli

Hallo want2cu
Danke für deine Hilfe,

Macro!!
Damit habe ich probleme. Ich kann gerade mal die Grundrechenarten im Exel bedienen, ich komme gerade so mit der Vorgabenleiste zurecht aber das wars dann auch schon.
Meine Mitarbeiter sind genauso Computerallergiker wie ich, denen darf ich mit Einstellungen ändern gar nicht kommen.
Diese Exeltabelle wird auch von zu vielen Personen zu oft genutzt.
Darum habe ich auch alle Formelzellen gesperrt, und nur die freien Eingabefelder freigelassen.

es ist schwer zu erklären (ich weiss).
viele Grüsse
Ulli

Antwort 8 von Ulli

An rainberg,

Ja ich schicke dir morgen diese Maske.
Ich muus nur die Diskette aus der Firma holen

Danke für dein Interesse

grüsse
Ulli

Antwort 9 von Ulli

@ Rainberg

Hallo Rainer,
Du hast Post!
gruss
Ulli

Antwort 10 von xxxxxxxx

hi :))

oder so

Option Explicit
Sub Makro1()
Dim zaehler0 As Long
Dim zaehler1 As Integer
ReDim tab1(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column)
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If Cells(zaehler0, zaehler1) <> 0 Then
tab1(zaehler0, zaehler1) = Cells(zaehler0, zaehler1)
Cells(zaehler0, zaehler1) = ""
End If
Next zaehler1
Next zaehler0
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
For zaehler0 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If tab1(zaehler0, zaehler1) <> 0 Then Cells(zaehler0, zaehler1) = tab1(zaehler0, zaehler1)
Next zaehler1
Next zaehler0
End Sub