Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Klick auf Checkbutton soll Gedruckt werden

Forumthread: Bei Klick auf Checkbutton soll Gedruckt werden

Bei Klick auf Checkbutton soll Gedruckt werden
05.11.2014 14:49:50
Langmantl
Hallo,
bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
Wie lautet hierzu der Code?

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick auf Checkbutton soll Gedruckt werden
11.11.2014 11:21:11
Michael
Hallo Langmantl!
Hier mal ein Makro (kann zB auch auf eine Schaltfläche gelegt werden) mit dem Druckfarbe und Anzahl der Kopien vom User bestimmt werden und das aktive Blatt entsprechend gedruckt wird:
Sub FarbeUndKopienBestimmen()
Dim Kopien As Integer
Dim Farbe As Variant
Farbe = InputBox("Mit welcher Farbeinstellung soll das Dokument gedruckt werden?" _
& vbCrLf & vbCrLf & "1... Schwarz/Weiß, 2... Farbe, Abbrechen o.a. = Schwarz/Weiß", " _
Druckfarbe", 1)
Select Case Farbe
Case Is = 1
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
Case Is = 2
With ActiveSheet.PageSetup
.BlackAndWhite = False
End With
Case Is = ""
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
Case Else
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
End Select
Kopien = InputBox("Wieviele Kopien sollen gedruckt werden?", "Anzahl der Kopien", 1)
ActiveSheet.PrintOut copies:=Kopien
End Sub
Denke, damit kommst Du hin, oder?
Beste Grüße
Michael

Anzeige
AW: Bei Klick auf Checkbutton soll Gedruckt werden
11.11.2014 12:24:43
Langmantl
Hallo Michael, danke funktioniert super
;

Forumthreads zu verwandten Themen

Beim Klick auf Abbrechen Makro beenden
chandler

Hallo,
wenn im nachfolgenden Makro auf die Schaltfläche Abbrechen geklickt wird bleibt das Makro stehen und wird nicht beendet. On Error Resume Next hilft nicht. Sub Test() 'Test ChDrive Left(CurDir, 1) ChDir CurDir Dim z As Range Dim search As String Set wbtarget = ThisWorkbook.Worksheets...
05.11.2012 14:39:02
Thread-ID: 1285354
5 Beiträge
Optionsbutton ausblenden funzt nur bei klick
EarnyToLearny

Liebe Excel-Profis,
es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Sheets("Tabelle1").Range(...
26.01.2013 17:07:38
Thread-ID: 1296107
5 Beiträge
Anzeige
userform bei klick auf button Uhrzeit in Zelle
Andreas

Hallo liebe fleißige Helfer.
Ich bastel gerade an einem VBA-Code der mir Verkehrszählungen vereinfachen soll. Ich nutze eine userform und wenn ich auf den button "pkw" klicke erhöht es mir ein Textfeld um ein. soweit so gut.
Nun möchte ich aber am ende ein zählprotokoll haben, bei dem i...
27.08.2014 16:05:10
Thread-ID: 1378511
33 Beiträge
Klick auf CommandButton, Link nicht öffnen
Propman

Hallo,
ich habe eine kleine Testdatei hier aufgebaut:
https://dl.taikocloud.com/download.php?id=115&token=EkfT3Bffiltj4gpJfsfDbzEfW6dkU4Jp
(Wie schon mehrfach geschrieben ist es mir leider nicht möglich vom Mac aus irgendwelche Dateien bei Herber hochzuladen, weder mit Safari no...
01.03.2015 12:15:54
Thread-ID: 1412078
3 Beiträge
Anzeige
Aufrufenden cmdButton eines UF bestimmen
Wusel

Hallo zusammen,
ich habe mal wieder ein kleines Problem und hoffe man kann mir hier weiterhelfen :)
Ich habe ein Userform(UF1) gebaut und möchte dies nun von 2 verschiedenen anderen Userforms(UF2/UF3) aufrufen. Je nachdem ob UF2 oder UF3 aufruft soll UF1 aber anders befüllt werden. Jetz...
03.06.2015 22:27:42
Thread-ID: 1429182
5 Beiträge
Button auf Homepage klicken
Hermann

Hallo zusammen,
nach erfolgloser Suche & Testen habe ich es nun aufgegeben und benötige Hilfe von einem Experten.
Ich möchte mittels eines VBA einen bestimmten Button auf dieser Homepage klicken: "http://www.unternehmen24.info/Firmeninformationen/DE/4232667"
Freue mich um Suppor...
30.06.2016 18:28:50
Thread-ID: 1501912
4 Beiträge
Button auf Webseite anklicken (Firefox) - Teil
Markus

Hallo,
ich verwende folgenden Code, um eine Webseite in Firefox zu öffnen.
Das funktioniert soweit, mein Problem sind nur die letzten drei Zeilen (nach Shell...). Hier möchte ich einen Button auf der Webseite anklicken. In IE würde ich das über ein Object machen, aber ich weiss nicht,...
24.04.2017 11:15:01
Thread-ID: 1554333
3 Beiträge
Anzeige
Klick auf Listbox unterbinden
Sarah

Hallo Zusammen,
ich habe eine Suchfunktion, die eine Datei durchsucht und anschließend in der Listbox ausgibt. Mit Klick kann der entsprechende Datensatz zur Änderung übernommen werden.
Sollte die Suche keinen Erfolg haben, dann wird "Kein Eintrag" ausgegeben. Allerdings kann dies in de...
19.12.2017 13:30:02
Thread-ID: 1598054
3 Beiträge
Anzeige
klick auf Button fügt Zeile darunter
Michael

Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: Sub Zeileeinfügen() Zeile der...
29.10.2018 13:02:41
Thread-ID: 1654107
2 Beiträge
klick auf Button fügt Zeile darunter
Michael

Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: Sub Zeileeinfügen() Zeile der...
29.10.2018 13:10:32
Thread-ID: 1654109
7 Beiträge
Spalten ein- und ausblenden auf Klick
Joachim

Hallo zusammen,
ich möchte einen Belegungsplan erstellen und wo belegte Tage belegt gekennzeichnet sind (Farbe und "X"). Mit "Klick" auf die Zelle mit dem "X" (quasi Tagesdatum) in sollen die ausgeblendenen Spalten mit gleichem Tagesdatum rechts daneben eingeblendet und sichbar werden, so d...
06.11.2018 12:30:37
Thread-ID: 1655697
3 Beiträge
Bei Klick auf Button "Neu" Abfrage nach Speichern
Tobi

Hallo Zusammen,
ich wäre wieder einmal für Eure Hilfe dankbar, weil ich aufgrund meiner geringen Kenntnisse alleine leider nicht weiterkomme.
Ich möchte gerne verhindern, dass wenn jemand versehentlich vor dem Speichern eines neuen Datensatzes auf den Button "Neu" oder auf die "Listbox"...
13.02.2019 14:47:39
Thread-ID: 1675356
23 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