Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken nach Tastendruck ENTER?

Drucken nach Tastendruck ENTER?
23.03.2021 15:31:56
Simon
Hallo zusammen.
Ich habe folgende Frage - ich nutze ein Tabellenblatt zum Ausdruck von Etiketten (bitte nicht in Frage stellen, ich komme damit sehr gut klar).
Das jeweilige Etikett habe ich mir nach meinen Wünschen formatiert und lediglich drei Zellen werden vor dem Ausdruck bearbeitet. Das sind auch die einzigen Zellen, die nicht gesperrt sind, sodass ich immer schön mit der ENTER-Taste zur nächsten Zelle springen kann.
Nun zu meiner eigentlichen Frage - gibt es die Möglichkeit, dass wenn ich die dritte und somit letzte Zelle ausgefüllt habe, dass dann beim nächsten Tastendruck auf ENTER das Etikett sofort gedruckt wird? Ich möchte quasi zwischendurch nicht mit der Maus den Ausdruck auslösen müssen.
Viele Grüße und danke im Voraus,
Simon

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken nach Tastendruck ENTER?
23.03.2021 15:35:00
RPP63
Moin Simon!
Strg+p ist aber auch nicht gerade weit von der Enter-Taste entfernt?
Fragt sich Ralf

AW: Drucken nach Tastendruck ENTER?
23.03.2021 16:11:21
Simon
Hallo.
Das stimmt schon, aber dafür braucht man dann schon zwei Hände :-D
Lieber wäre mir deswegen der Tastendruck auf der ENTER-Taste.

AW: Drucken nach Tastendruck ENTER?
23.03.2021 16:16:02
Simon
Hallo. Darin wird sich vermutlich meine Lösung befinden, leider bin ich noch nicht so fit bei VBA.
Könnte mir vielleicht jemand den Code nennen, dass nach Eingabe in Zelle D7 (vorher finden noch Eingaben in Zelle A1 und C3 statt) und anschließendem Betätigen der ENTER-Taste der Druck startet? Und wo genau muss ich den Code einfügen?

Anzeige
AW: Drucken nach Tastendruck ENTER?
23.03.2021 17:01:52
Dieter(Drummer)
Hallo Simon,
probiers mal so:
Diesen Code unter dem Tabellenblatt im Codebereich einfügen, in dem du die Zelle D7 ja nutzen willst.
Nach Eingabe oder Änderung in Zelle D7, wird dann der der Druck gestartet.
Code aus dem Beispiel, angepasst:
https://www.herber.de/forum/archiv/1524to1528/1527084_Drucken_nach_Eingabe_eines_Wertes_in_eine_Zelle.html 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D7"), Target) Is Nothing Then
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub

Gruß, Dieter(Drummer)

Anzeige
AW: Drucken nach Tastendruck ENTER?
23.03.2021 18:07:12
Nepumuk
Hallo Simon,
Rechtsklick auf den Tabellenreiter - Code anzeigen. In das sich öffnende Fenster folgende Prozedur einfügen.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then PrintOut
End Sub

$D$7 musst du gegebenenfalls an deine letzte Eingabezelle anpassen. Die $-Zeichen vor dem Spaltenbuchstaben und der Zeilennummer müssen drin bleiben.
Gruß
Nepumuk

Anzeige
AW: Drucken nach Tastendruck ENTER?
24.03.2021 13:56:10
Simon
Hallo.
Das funktioniert toll - vielen Dank!
Gibt es noch einen einfachen Code, den man dazwischen setzen kann, welcher einen bestimmten Drucker auswählt, welcher nicht der Standard-Drucker ist?

AW: Drucken nach Tastendruck ENTER?
24.03.2021 14:47:33
Nepumuk
Hallo Simon,
teste mal:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then _
        If Application.Dialogs(xlDialogPrinterSetup).Show Then PrintOut
End Sub

Gruß
Nepumuk

Anzeige
AW: Drucken nach Tastendruck ENTER?
24.03.2021 20:02:31
Simon
Sorry, Nepumuk - ich meinte eigentlich, dass ich mit dieser Lösung gut klar komme:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D7"), Target) Is Nothing Then
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub
Irgendwie hab ich im Stress falsch geantwortet.
Also danke an Dieter(Drummer).
Nun habe ich aber noch ein weiteres Problem... Ich würde gerne im Zuge, dass nach Enter-Taste in "D7" gedruckt wird zusätzlich die Zellen "D7" und "D8" löschen, also den Inalt.
Ich hatte mir dazu folgenden Code zusammen gebastelt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D7"), Target) Is Nothing Then
ActiveWindow.SelectedSheets.PrintOut
Range("D7,G7").ClearContents
End If
End Sub
Ansich funktioniert der Code - also der Druck startet und die beiden Zellen werden inhaltlich geleert, aaaber es wird ein unzähliger Druck ausgelöst! Der Code druckt so lange, bis dass ich Excel über den Task-Manager schließe. Was genau passiert da, bzw. was kann ich dagegen tun?

Anzeige
AW: Drucken nach Tastendruck ENTER?
25.03.2021 08:25:25
Nepumuk
Hallo Simon,
durch das leeren der Zellen rufst du das Makro erneut aus. So kannst du das unterdrücken:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("D7"), Target) Is Nothing Then
        ActiveWindow.SelectedSheets.PrintOut
        Application.EnableEvents = False
        Range("D7,G7").ClearContents
        Application.EnableEvents = True
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Drucken nach Tastendruck ENTER?
25.03.2021 22:54:21
Simon
Super, besten Dank!
Eine Kleinigkeit beibt leider noch. Ich würde gerne unabhängig von diesem Code gerne noch einen haben, welcher beim Öffnen der Arbeitsmappe einen vom Standarddrucker abweichenden Drucker auswählt - es soll allerdings nicht der Standarddrucker (auch nicht temporär) in Windows geändert werden (falls das mit Excel VBA überhaupt möglich ist...).
Private Sub Workbook_Open()
End Sub
Irgendwie so wahrscheinlich?
Ich habe schon jede Menge Beiträge in Foren durch, aber irgendwie gibt es da zig Lösungen, aber keine, die bei mir funktioniert hat... Das mit "NeXX" habe ich verstanden.

Anzeige
AW: Drucken nach Tastendruck ENTER?
26.03.2021 08:16:30
Nepumuk
Hallo Simon,
so:
Private Sub Workbook_Open()
    Call Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

Gruß
Nepumuk

AW: Danke Simon für Rückmeldung, aber ...
25.03.2021 08:36:02
Dieter(Drummer)
... die Mitteilung von Nepumuk war schon optimal.
Der Hinweis, "D7" so zu schreiben, "$D$7" bewirkt, dass NUR für diese Zelle ein "printaout" gültig ist und für keine andere Zelle, egal ob du Zeilen verschiebst etc.
Im dem Sinne einen erfeulichen Tag.
Gruß, Dieter(DRummer)

Anzeige
AW: Danke Simon für Rückmeldung, aber ...
25.03.2021 22:55:43
Simon
Okay, verstehe.
Auf jeden Fall ein großes Dankeschön an euch!

302 Forumthreads zu ähnlichen Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 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
2
13
2
4
4
4
2
1
2
3
7
3
3
18
1
4
4
2
2
2
3
4
2
13
11