Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelne Zellen NICHT ausdrucken

Einzelne Zellen NICHT ausdrucken
Heinrichs
Hallo zusammen,
ich weiß, dass mein Problem eine ziemliche Zweckentfremdung von EXCEL darstellt und ich vermutlich an andere Programme verwiesen werde - vielleicht kann mir trotzdem jemand helfen, da ich von den Vorteilen von EXCEL unbedingt profitieren möchte.
Ich möchte über EXCEL Etiketten beschriften. Es handelt sich jeweils um 21 Klebe-Etiketten auf einem DIN-A4 - Bogen.
Ich habe nun zwei Tabellenblätter eröffnet. Auf dem ersten können die Daten eingegeben werden; das zweite Tabellenblatt stellt den fertigen Ausdruck dar (ansonsten findet hier keinerlei Bearbeitung statt).
Problem ist nun folgendes:
Es werden nicht immer alle 21 Etiketten zum Ausdruck benötigt. Es kann z. B. sein, dass an einem Tag nur fünf Etiketten gedruckt werden müssen. Beim nächsten Zugriff erfolgt dann ein weiterer Ausdruck, wobei die ersten fünf (fehlenden) Etiketten natürlich nicht mehr ausgedruckt werden sollen.
Ich habe dazu überlegt, für jedes Etikett zwei Makros aufzuzeichnen - Makro 1 setzt die Schriftfarbe auf weiß, entfernt Rahmenlinien und blendet die Grafik beim Drucken aus (dadurch "fehlt" dieses Etikett beim Ausdruck); Makro 2 setzt die Schriftfarbe wieder auf schwarz, fügt die bestimmten Rahmenlinien wieder ein und blendet die Grafik beim Drucken wieder ein (dadurch erscheint das Etikett beim Ausdruck).
Um die Makros auszuführen, habe ich auf dem Eingabe-Tabellenblatt für jedes Etikett zwei Optionsfelder eingerichtet, die dann mit den beiden Makros verknüpft werden sollen. Hier kann ich also einzeln für jedes Etikett bestimmen, ob es gedruckt werden soll oder nicht.
Ich hatte bereits testweise einige Makros aufgenommen und musste dann leider feststellen, dass ich die Makros, welche im zweiten Tabellenblatt (Ausdruck) zum Einsatz kommen sollen, nicht vom ersten Tabellenblatt (Eingabe) aus gestartet werden können.
Wie kann ich die Makros aufzeichnen, dass dies möglich ist?
Ist meine Vorgehensweise (abgesehen davon, dass EXCEL kein Etiketten-Druck-Programm ist) viel zu kompliziert?
HIER DIE DATEI: https://www.herber.de/bbs/user/81017.xls
Ich würde mich auf eine Antwort sehr freuen!
Nette Grüße, Simon
PS: Ich hatte bereits einen ähnlichen Thread eröffnet, bin aber nicht wirklich voran gekommen.

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

Betreff
Benutzer
Anzeige
AW: Einzelne Zellen NICHT ausdrucken
16.07.2012 16:06:28
UweD
Hallo
ich habe mal folgendes gemacht:
Ein Rechteck über die Position des Aufklebers
- Ohne Randfarbe
- Füllfarbe weiß
- Das rechteck entsprechend benennen (auswählen und dann in der Bearbeitungsleiste vorne abändern)
Userbild
- Auf die entsprechenden Knöpfe rechtsclick, Makro zuweisen...
- per makro wird das Rechteck jetzt sichtbar >> also weiß >> Etikett bleibt weiss
- oder unsichtbar >> dadurch wird der Hintergrund sichtbar
ich hab das mal für die ersten 3 Felder so gemacht..
Makros wie folgt:

Sub Etikett01_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 01").Visible = True
End Sub
Sub Etikett01_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 01").Visible = False
End Sub
Sub Etikett02_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 02").Visible = True
End Sub
Sub Etikett02_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 02").Visible = False
End Sub
Sub Etikett03_ndrucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 03").Visible = True
End Sub
Sub Etikett03_drucken()
ThisWorkbook.Worksheets("AUSDRUCK").Shapes("Rechteck 03").Visible = False
End Sub
Gruß UweD
https://www.herber.de/bbs/user/81021.xlsm
Anzeige
AW: Einzelne Zellen NICHT ausdrucken
16.07.2012 16:16:16
Dieter(Drummer)
Hi Simon,,
habe in deiner Mappe, Tabelle "Ausdruck"mal jedes Etikett mit einem Namen definiert, z.B. Etikett 1 mit dem Namen "Etik1" usw. bis "Etik21".
Jetzt brauchst du nur noch ein VBA Makro, dass in Tabelle "Eingabe", bei Aktivierung des Optionsfeldes "Drucken", das Etikett mit dem Namen "Etik1" gedruckt wird. So müsste im Makro ein Prüfung aller Optionsfelder erfolgen, ob ein Etikett gedruckt oder nicht gedruckt werden soll. Ich würde KEINE Etiketten löschen und dann wieder herstellen, zumal bei z.B. löschen von Etikett 1 die anderen keine Textinhalte mehr haben.
Bei der Makroerstellung kann ich nicht helfen, da hier mein VBA Wissen ungenügend ist. Hier gibt es evtl. im Forum hilfe.
Hier deine überarbeitete Version: https://www.herber.de/bbs/user/81023.xls
Mit Gruß, Dieter(Drummer)
Anzeige
AW: Mit drucken ...
16.07.2012 17:25:23
Dieter(Drummer)
Hi Simon,
habe mal probiert! Nun kannst du im Modul sehen, was ich in einer etwas diletanischen Weise angelegt habe.
Bei Klick auf Etikett 1 "Drucken", wird das "Etik1" gedruckt. Dies nur mal zur Funktionsmöglichkeit. Nun müsste sich einer der Forumspezialisten dies vereinfachen/erweitern. Ich kann mit vorstellen, dass über eine Schleife abgefragt wird, welches "Etik1" bis "Etik21" - je nach Aktivierung des Optionsfeldes in Tab "Eingabe". aktivert ist So kann das jeweilige Etikett gedruckt werden.
Mehr kann ich nicht helfen. Du kannst natürlich jede Optionsfeld Einstellung einzeln abfragen, statt einer Schleife.
Gruß, Dieter(Drummer)
Hier die neue Version: https://www.herber.de/bbs/user/81025.xls
Im Modul ist:
Option Explicit
Sub Optionsfeld13_BeiKlick()
Application.ScreenUpdating = False
Worksheets("Eingabe").Shapes("Optionsfeld 13").OLEFormat.Object.Value = True
Sheets("AUSDRUCK").Application.Goto Reference:="Etik1"
Selection.PrintOut Copies:=1
Range("C13").Select
Sheets("EINGABE").Select
Range("D2").Select
Application.ScreenUpdating = True
End Sub

Anzeige

312 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

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