Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbefehl soll Löschen einer Zelle auslösen

Druckbefehl soll Löschen einer Zelle auslösen
13.07.2015 13:42:10
Juergen
Hallo,
habe schon öfters hilfreiche Antworten in diesem Forum gefunden und versuche es nun selbst mit einer Frage.
Ich habe ein "Arbeitblatt", welches mir über bedingte Formatierung Lösungen ein- und ausblenden kann. Das Blatt soll gedruckt werden können, aber nur ohne Lösung.
Eine Lösung wird z.B. eingeblendet, indem in den Zellen H33 und H48 ein "J" ("j" = Lösung anzeigen)geschrieben wird. Die bedingte Formatierung prüft die Zellen und schreibt die Inhalte und Berechnungen in schwarz - vorher weiß. (das war nur zur Info)
2 Lösungen sind aus meiner Sicht denkbar:
1. Zelle H33, H48 werden bei Ausführung des Druckbefehls gelöscht
2. Denkbar wäre auch, wenn bei Druckbefehl alle Zellen mit einem einfachen "J" als Inhalt gelöscht werden (Arbeitsblatt A1:H60) - wäre für mich ideal, da ich das Makro so universell einsetzen kann und nichts mehr anpassen muss.
Ideen?
Danke, Jürgen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbefehl soll Löschen einer Zelle auslösen
13.07.2015 14:36:36
Michael
Hallo Jürgen!
zB so:

Variante 1:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Bereich As Range
'Variante 1, H33 und H48 werden gelöscht
'Tabellenname "Arbeitsblatt" ggf. anpassen
Set Bereich = Worksheets("Arbeitsblatt").Range("H33, H48")
Bereich.ClearContents
End Sub
Variante 2:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Bereich As Range
'Variante 2, A1:H60 wird gelöscht
'Tabellenname "Arbeitsblatt" ggf. anpassen
Set Bereich = Worksheets("Arbeitsblatt").Range("A1:H60")
Bereich.ClearContents
End Sub
Beide Varianten müssen in das Codeblatt der Arbeitsmappe: bei geöffneter Arbeitsmappe Alt + F11, DoKlick auf "DieseArbeitsmappe", den gewünschten Code dort einfügen. Achtung: Deinen Tabellenblattnamen habe ich jetzt mit "Arbeitsblatt" angenommen - ggf. ändern.
LG
Michael

Anzeige
AW: Druckbefehl soll Löschen einer Zelle auslösen
13.07.2015 17:30:43
Juergen
Klasse, Variante 1 klappt prima. Damit kann ich schon arbeiten.
Kannst Du mir noch einen Tipp geben bzgl. Variante 2. So ausgeführt, würden ja alle Inhalte gelöscht werden. Gibt es eine Option nur Zellen bzw. deren Inhalte zu löschen, in denen ein einzelnes "J" eingetragen ist?
Super Forum!!! Danke nochmal!

AW: Variante 2 ergänzt
13.07.2015 23:45:54
Michael
Hallo Jürgen!
Sorry, hab ich überlesen. Hier die ergänzte Variante 2:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Worksheets("Arbeitsblatt").Range("A1:H60")
For Each Zelle In Bereich
If Zelle.Value = "J" Then
Zelle.ClearContents
End If
Next
End Sub
Danke für Deine Rückmeldung!
LG
Michael

Anzeige
AW: Variante 2 ergänzt
15.07.2015 12:53:07
Juergen
Super ... vielen Dank.
Jürgen

AW:Gerne, Danke für die Rückmeldung, owT
16.07.2015 09:28:22
Michael
.

geht nicht.......
13.07.2015 15:20:05
selli
hallo jürgen,
....denn, ein "druckbefehl" löst einen druck aus.
löschen geht nur mit einem "löschbefehl".
gruß
selli

315 Forumthreads zu ähnlichen Themen

Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Nur Zahlen in Zelle zulassen
Richard


Hallo an alle,
vielleicht kann mir jemand weiterhelfen.
In einem früheren Beispiel habe ich mal folgenden Code auf eine Textbox angewendet. Ich wollte damit erreichen, dass nur Zahlen, das "X", das "M" und das "L" für die Eingabe zugelassen sind. Dabei spielte es keine Rolle, ob...
29.01.2009 14:10:41
Thread-ID: 1045007
2 Beiträge
Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Währungszeichen aus Zelle holen
joerg

Hallo,
ich hab hier eine Liste mit Abrechnungen, in dieser Liste kommt gelegentlich eine Fremdwährung vor, also CHF, GBP, SEK, DKK, ...
Ich würde nun gern oben in der Liste ein Feld machen, in dem man dieses Währungskennzeichen eingeben kann, dann sollen die Werte in der Spalte, in die...
29.07.2009 09:54:29
Thread-ID: 1092130
10 Beiträge
VBA - nur zahlen zulassen
steffen

Hallo in die Runde,
ich möchte per VBA prüfen lassen, ob in den Zellen ausschließliche zahlen drin sind.
Bsp:
012876
0049987272727
9876236262
Sobald aber ein Buchstabe oder Sonderzeichen drin ist, muss das erkannt werden (einfärben).
Ich habe es so versucht, doch das...
13.08.2009 08:57:13
Thread-ID: 1095486
10 Beiträge
Anzeige

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
9
3
1
2
4
7
4
4
9
9
9
8
5
3
10
2
12
8
6
6
8
2
2
9
1