Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt einzelner Zellen nicht drucken

Forumthread: Inhalt einzelner Zellen nicht drucken

Inhalt einzelner Zellen nicht drucken
14.08.2005 22:12:53
mike49
Hallo,
wie kann man erreichen, dass der Inhalt einzelner Zellen zwar angezeigt, aber nicht gedruckt wird?
Gruß
mike49
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 22:30:59
Matthias
Hallo Mike,
z.B. so:
in "DieseArbeitsmappe":

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m
Application.EnableEvents = False
m = Range("A2").NumberFormat
Range("A2").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("A2").NumberFormat = m
Cancel = True
Application.EnableEvents = True
End Sub

Hat aber den Nachteil, dass die Druckvorschau nicht mehr funktioniert. Das Ereignis ist nämlich dasselbe :-(
GRuß Matthias
Anzeige
AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 23:05:20
mike49
Hallo Matthias,
mit dem Makro klappt' nicht. Es kommt die Fehlermeldung, dass die NumberFormat-Eigenschaft des Range-Objektes nicht festgelegt werden kann.
Hast du den Fehler im Löschen-Makro gefunden, weil E8 nicht in allen Blättern angesprungen wird?
Gruß
mike49
AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 23:18:53
Matthias
Hallo Mike,
also bei mir geht das Makro.
wg. Aktivierung von E8:
was soll das bringen?
Gruß Matthias
Anzeige
AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 23:36:54
mike49
Hallo Matthias,
also bei mir gehts nicht. Ich habe je eine Verknüpfung in G5 und G6.
wg. Aktivierung von E8:
Ich möchte immer an den Zeiteneingabe-Anfang. Aber warum wird das nicht gemacht, obwohl es im Makro steht?
Hast dus mit der hochgeladenen Datei probiert?
Gruß
mike49
Anzeige
AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 23:44:12
Matthias
Hallo Mike,
also bei mir gehts nicht. Ich habe je eine Verknüpfung in G5 und G6.
In deiner "aktuellen Mappe" sind keine Verknüpfungen.
Dann musst du das halt anpassen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m1, m2
Application.EnableEvents = False
m1 = Range("G5").NumberFormat
m2 = Range("G6").NumberFormat
Range("A2").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("G5").NumberFormat = m1
Range("G6").NumberFormat = m2
Cancel = True
Application.EnableEvents = True
End Sub

G6 gibt es aber in deiner Mappe nicht, die Zelle ist mit F6 verbunden!
Ich möchte immer an den Zeiteneingabe-Anfang. Aber warum wird das nicht gemacht, obwohl es im Makro steht?
In deiner "aktuellen Mappe" steht nichts dergleichen, aber hier:

Private Function TABELLE_AUF_NULL(strTabelle As String) As Boolean
'    On Error GoTo Ende 'Fehlerbehandlung übernehmen.
With ThisWorkbook.Sheets(strTabelle) 'Alles auf dieses Tabellenblatt beziehen:
.Unprotect
.Range("E8:F38").ClearContents
.Range("G8:G38").FormulaLocal = "=WENN(F8>0;""0:00"";"""")"
.Protect
'Application.Goto .Cells(1, 1), True
Application.Goto .Range("E8")
End With
TABELLE_AUF_NULL = True 'Erfolg vermerken.
Ende:
'    On Error GoTo 0 'Fehlerbehandlung zurückgeben.
End Function

Gruß Matthias
Anzeige
AW: Inhalt einzelner Zellen nicht drucken
15.08.2005 00:50:18
mike49
Hallo Matthias,
das mit E8 hab' ich jetzt im Griff.
Das Nichtdrucken funzt noch nicht. Bei mir steht jetzt:
in G5 die Verknüpfung =F42 und
in G6 die Verknüpfung =I42
Gruß
mike49
AW: Inhalt einzelner Zellen nicht drucken
15.08.2005 00:57:27
Matthias
Hallo Mike,
Sorry, mein Fehler.
In "DieseArbeitsmapee":

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m1, m2
Application.EnableEvents = False
m1 = Range("G5").NumberFormat
m2 = Range("G6").NumberFormat
Range("G5").NumberFormat = ";;;"
Range("G6").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("G5").NumberFormat = m1
Range("G6").NumberFormat = m2
Cancel = True
Application.EnableEvents = True
End Sub

Gruß Matthias
Anzeige
AW: Inhalt einzelner Zellen nicht drucken
14.08.2005 23:42:05
Reinhard
Hi Mike,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
With ActiveSheet
.Range("A2").Interior.ColorIndex = 2
.PrintOut
.Range("A2").Interior.ColorIndex = 0
Cancel = True
End With
Application.EnableEvents = True
End Sub

Gruß
Reinhard
Anzeige
fühle mich sehr unbefeedbackt *sniff* o.w.T.
15.08.2005 01:08:41
Reinhard
Gruß
Reinhard
AW: fühle mich sehr unbefeedbackt *sniff* o.w.T.
15.08.2005 01:13:52
Matthias
Hallo Reinhard,
sei nicht traurig ;-)
Das Problem war ja, dass das Ansprechen von Range("G6") ncith geklappt hat, wei die Zelle mit F6 verbunden war. Ob du da das Zellformat oder die Schriftfarbe ändern willst, ist egal.
Gruß Matthias
Sorry Reinhard und Matthias . . .
15.08.2005 15:15:27
mike49
ich musste leider wegen Übermüdung spontan "die Zelte abbrechen". Musste heute schon sehr früh aus dem Haus und bin erst jetzt wieder zurück.
Nochmals zu dem Druckproblem:
Ich kann machen was ich will, es funzt nicht!
In G5 (G5 und H5 verknüpft) steht =F42. In F42 (F42 und G42) verknüpft steht =WENN(I41 grösser K44;K44;I41). (Natürlich das Grösserzeichen).
In G6 (G6 und H6 verknüpft) steht =I42. In I42 (F42 und G42) verknüpft steht =K49.
In K49 steht =F41-K43.
Ich habe das Makro sogar in das Tabellenblatt geschrieben. Bringt nichts.
Gruß
mike49
Anzeige
AW: Sorry Reinhard und Matthias . . .
15.08.2005 16:57:38
Matthias
Hallo Mike,
das Makro gehört aber ins Arbeitsmappenmodul ("DieseArbeitsmappe").
Gruß Matthias
AW: Sorry Reinhard und Matthias . . .
15.08.2005 17:50:40
mike49
Hallo Matthias,
schön, dass du dich nochmals gemeldet hast.
Habe den Fehler gefunden. Hängt mit dem Blattschutz zusammen.
Habe zu Beginn des Makros "ActiveSheet.Unprotect" und am Schluss "ActiveSheet.Protect" eingefügt und das Makro in "Diese Arbeitsmappe" gesetzt und es klappt, so wie ich es wollte.
Danke nochmals für deine Hilfe.
Gruß
mike49
Anzeige
;

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