Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nicht drucken

Zellen nicht drucken
26.10.2022 12:09:24
werner
Moin Excelfreunde,
es ist zwar eine spielerei, aber ich bekomme es trotzdem nicht hin
Zelle O50:P50 nicht zu drucken in eine PDF.
O50:P50 ist ein link zum anderen Arbeitsblatt "KuG" = Kurzarbeit
Hat jemand eine Lösung?
https://www.herber.de/bbs/user/155867.xls

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen nicht drucken
26.10.2022 12:33:39
UweD
Hallo
mach es doch so wie bei A1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Farbe1 As Integer, Farbe2 As Integer
Dim wks As Worksheet
Dim i As Byte
On Error GoTo Fehler
For Each wks In Me.Worksheets
If ActiveSheet.Name = wks.Name Then
i = 1
Exit For
End If
Next wks
If i = 1 Then
Cancel = True
Farbe1 = ActiveSheet.Range("A1").Font.ColorIndex
ActiveSheet.Range("A1").Font.ColorIndex = 2
Farbe2 = ActiveSheet.Range("O50").Font.ColorIndex
ActiveSheet.Range("O50").Font.ColorIndex = 2
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
ActiveSheet.Range("A1").Font.ColorIndex = Farbe1
ActiveSheet.Range("O50").Font.ColorIndex = Farbe2
End If
Fehler:
Application.EnableEvents = True
End Sub
LG UweD
Anzeige
AW: Zellen nicht drucken
26.10.2022 14:19:44
Daniel
HI
würde ich so machen:
1. suche dir eine freie zelle (z.B. A1, kann auch eine andere sein, Excel hat genügend davon)
2. erstelle für alle Zellen, die beim Drucken ausgeblendet werden sollen, eine Bedingte Formatierung mit dieser Regel: =$A$1="x" und als Format das benutzerdefinerte Zahlenformat ;;; (3x Trennzeichen Semikolon)
schreibe jetzt ins BeforePrint-Makro einfach den Befehl: Range("A1").Value = "x"
sobald in der Zelle A1 das "x" steht, werden die Inhalte der Zellen, für die die bedingte Formatierung gilt, nicht mehr angezeigt.
Der vorteil ist, dass das unabhängig von irgendwelchen Hintergrund- und Schriftfarben funktioniert (es gibt ja auch das schwarz/weiß-Drucken, welches dann alle Inhalte unabhängig von der Schriftfarbe in schwarz druckt), und dass die originalformate erhalten bleiben.
Gruß Daniel
Anzeige
AW: Zellen nicht drucken
26.10.2022 17:04:11
werner
ich habe eine elegantere Methode gefunden
=EINBETTEN("Forms.CommandButton.1";"")
cmp_Eingabe
unter
Eigenschaften
Printobject = False
Danke Euch LG
Werner Kiel
Helfer verarschen, nicht die feine Art.
26.10.2022 18:17:45
Daniel
naja, du hast gesagt, dass die Zellen O50:P50 nicht gedruckt werden sollen.
davon, dass der Button nicht gedruckt werden soll, war in deiner Anfrage keine Rede, außerdem befindet sich der Button in einem anderen Zellbereich.
Wenn du uns gefragt hättest, wie man erreichen kann, dass der Button nicht gedruckt werden soll, hättest du wahrscheinlich sofort den Hinweis auf diese Eigenschaft bekommen.
Aber du hattest nach den Zellen gefragt und nicht nach dem Button.
Wenn du uns das jetzt als elegantere Lösung präsentierst, fühle ich mich von dir verarscht, weil da nicht das war, was du gefragt hattest.
Anzeige
is ja nix Neues,....
26.10.2022 21:57:24
Rudi
... dass die Problemschilderung NICHTS mit dem Problem zu tun hat.
Gruß
Rudi

307 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Kommentar-marker mit drucken??
joerg

Hallo,
Ist es möglich beim drucken eines Tabellenblattes die kleinen roten Dreiecke, die das vorhandenseins eines Kommentars anzeigen, mitzudrucken?
Ich weiss natürlich dass man die Kommentare als solches drucken kann, allerdings interessiert mich wirklich nur, ob es einen Kommentar gib...
04.09.2008 15:55:00
Thread-ID: 1007447
2 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Textbox wird nicht aktualisiert während Makro...
Steve

Hallo zusammen,
Folgendes Problem:
Eine Textbox (txtInfo), welches in einem Worksheet eingefügt wurde, sollte während des Makros unterschiedliche Infos anzeigen.
Die Textbox aktualisiert sich aber nicht während des Makros, so dass nur der letzte Wert angezeigt wird, sobald das Makro...
05.03.2009 12:17:30
Thread-ID: 1056772
3 Beiträge
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
1
1
15
2
3
3
2
6
7
5
2
5
2
3
3
4
7
2
3
5
3
5
8