Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit bestimmten wert nicht drucken

Forumthread: Zellen mit bestimmten wert nicht drucken

Zellen mit bestimmten wert nicht drucken
26.11.2012 21:05:25
Linus
Hallo,
ich habe ein tabelle erstellt und möchte diese gerne ausdrucken. beim ausdruck soll die tabelle, falls zB in A1 den Inhalt "Hase" oder "Hund" den wert nicht mitausdrucken sondern die Zelle einfach farblich hinterlegen...
bisher sieht mein macro so aus: 
Sub drucken()
ST_DRUCKER = Application.ActivePrinter
Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
If Druckerwahl = True Then
Range("A80:AH102").PrintPreview
End If
Application.ActivePrinter = ST_DRUCKER
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit bestimmten wert nicht drucken
26.11.2012 21:11:08
Hajo_Zi
in dem Code wird nicht gedruckt. Vielleicht so. 
Option Explicit
Sub drucken()
Dim St_Drucker As String
St_Drucker = Application.ActivePrinter
Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
If Druckerwahl = True Then
Range("A80:AH102").PrintPreview
If Range("A1") = "Hund" Or Range("A1") = "Hase" Then
Range("A1").NumberFormat = ";;;"
End If
ActiveSheet.Print
Range("A1").NumberFormat = "General"
End If
Application.ActivePrinter = St_Drucker
End Sub

Anzeige
AW: Zellen mit bestimmten wert nicht drucken
26.11.2012 21:40:16
Linus
danke für die antwort. leider verstehe ich es nicht genau
ich möchte zB in den Breich A1:B10 bestimmte werte nicht mit ausgedruckt haben.
zB steht in der Zelle A5 "Hund" und in der Zelle B3 "Hase". Die Zellen sollen nicht mit ausgedruckt werden sondern beim Ausdruck leer sein ..
wie bekomme ich das hin?

Anzeige
AW: Zellen mit bestimmten wert nicht drucken
27.11.2012 06:04:08
Hajo_Zi
Mein Code Bezog sich auf den ersten Beitrag. An Deine Bedingungen anpassen wolltest Du selber, sonst hättest Du im ersten Beitrag Deine Aufgabe genau beschrieben.
Gruß Hajo
;

Forumthreads zu verwandten 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
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
Anzeige
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
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 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
Anzeige
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
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
einzelne Zellen nicht schützen, wie?
dietmar

Hallo,
ich möchte bei einem EXCEL-Formular, dass man nur einzelne Zellen befüllen kann und der Rest des Formulars gesperrt ist. Die auszufüllenden Zellen (z.B. Name, Adresse, usw.) sollten durch Tab angewählt werden können. Zur Zeit kann ich nur einzelne Zellen sperren aber nicht umgekehrt?...
05.04.2009 22:41:32
Thread-ID: 1066974
6 Beiträge
Drucken nicht zusammenhängender Bereiche
reiner

Hallo Leute,
ich will auf der Vorderseite eines Blattes die mit "Bereich 1" und "Bereich 2" bezeichneten Zellbereiche drucken.
Auf der Blattrückseite soll "Bereich 3" sowie "Bereich 4" von Tabelle2 untereinander gedruckt werden.
Ist es überhaupt möglich Tabellenblatt-übergreifend D...
10.06.2009 14:24:46
Thread-ID: 1080504
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige