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
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
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
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
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
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
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
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
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
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
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