InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

Forumthread: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 16:50:27

Beno297

Hallöchen @ all,

die inputBox läuft nur bekommen ich das mit der Eintragung in A 1 nicht hin.

hoffe kann mir jemand helfen.

Sub Druck()
IntAnz = InputBox("Wieviele Kopien sollen gedruckt werden?")
ActiveWindow.SelectedSheets.PrintOut Copies:=IntAnz, Collate:=True
ThisWorkbook.Sheets("Tabelle1").Range("A1") = ThisWorkbook.Sheets("Tabelle1").Range("A1") = IntAnz 'Eintragung soll z.B 1 von 5 je nach dem was ich an Kopien eingebe

End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 17:00:54

Rudi Maintaire
AW: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 17:05:48

beno297
AW: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 17:52:08

Rudi Maintaire
du könntest auch ...

08.08.2023 18:05:36

Rudi Maintaire
AW: du könntest auch ...

09.08.2023 08:26:32

Beno297

AW: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 17:00:54

Rudi Maintaire

Hallo,
wenn du hochzählen willst:
ThisWorkbook.Sheets("Tabelle1").Range("A1") = ThisWorkbook.Sheets("Tabelle1").Range("A1") + IntAnz

nur die Anzahl:
ThisWorkbook.Sheets("Tabelle1").Range("A1") = IntAnz

Gruß
Rudi

AW: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 17:05:48

beno297

Hallo Rudi,

gibt es die Möglichkeit das wenn ich z.B 5 eingebe das bei dem Druck dann immer in A1 1 von 5; 2 von 5 und soweit geschrieben wird?

VG Beno

AW: InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

08.08.2023 17:52:08

Rudi Maintaire

Hallo,
nein.
Der Drucker gibt keine Rückmeldung darüber, welche Kopie er gerade druckt.

Gruß
Rudi

du könntest auch ...

08.08.2023 18:05:36

Rudi Maintaire

... einzelne Druckaufträge erzeugen und den Fortschritt in A1 schreiben.
Das geht aber so schnell, dass du davon nichts hast.

Sub drucken()

  Dim iAnz As Integer, i As Integer

  iAnz = Application.InputBox(prompt:="Anzahl Kopien?", Type:=1)

  If iAnz > 0 Then

    For i = 1 To iAnz

      Range("A1") = i & " von " & iAnz

      ActiveWindow.SelectedSheets.PrintOut

    Next i

  End If

End Sub

Gruß
Rudi