Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Print Anzahl ???

Forumthread: Print Anzahl ???

Print Anzahl ???
01.02.2004 14:41:45
helena
Hallo
noch einmal denke letze für heute, WAS ist da falsch ???

Sub druck_anzahl()
Dim dAnz As Byte
dAnz  =  InputBox("Wieviele Ausdrucke?,Default=1")
ActiveWindow.SelectedSheets.PrintOut Copies:= dAnz, Collate:=True
End Sub

möchte die Anzahl der Kopien wählen
gruss helena
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Print Anzahl ???
01.02.2004 14:42:56
Knut
Default:=1
Knut
AW: Print Anzahl ???
01.02.2004 14:48:09
helena
Hallo Knut
nein geht nicht komisch ist es kommt Meldung Var. nicht definiert ???
gruss helena
das andere war schreibfehler DANKE
AW: Print Anzahl ???
01.02.2004 14:48:10
Bertram
Hallo Helena,


Sub druck_anzahl()
Dim dAnz As Byte
dAnz = InputBox("Wieviele Ausdrucke?", Default:=1)
ActiveWindow.SelectedSheets.PrintOut Copies:=dAnz, Collate:=True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram
Anzeige
AW: Print Anzahl ???
01.02.2004 14:49:30
Nepumuk
Hallo Helena,
versuch es so:

Option Explicit
Sub druck_anzahl()
Dim dAnz As Variant
dAnz = Application.InputBox("Wieviele Ausdrucke?", "Eingabe", Default:=1, Type:=1)
If dAnz <> False Then
dAnz = Fix(dAnz)
If dAnz > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=dAnz, Collate:=True
End If
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
Danke es funktioniert jetzt Print Anzahl ??? (oT)
01.02.2004 14:56:40
helena
^'
;

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