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

Sub drucken() Dim iAnz As Integer, i As Integer iAnz = Application.InputBox(prompt:="Anzahl der Elemente?", Type:=1) If iAnz > 0 Then For i = 1 To iAnz Range("F10") = i & " von " & iAnz Range("C8") = Range("C8") + IIf(i = 1, 0, 1) ActiveWindow.SelectedSheets.PrintOut Next i End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub drucken() Dim iAnz As Integer, i As Integer iAnz = Application.InputBox(prompt:="Anzahl der Elemente?", Type:=1) If iAnz > 0 Then For i = 1 To iAnz Range("F10") = i & " von " & iAnz If i = 1 Then GoTo weiter Else Range("C8") = Range("C8") + 1 End If weiter: If Weekday(Range("C8"), vbMonday) > 6 And _ Weekday(Range("C8"), vbMonday) > 7 Then ActiveWindow.SelectedSheets.PrintOut End If Next i End If End Sub

Sub drucken() Dim iAnz As Integer, i As Integer iAnz = Application.InputBox(prompt:="Anzahl der Elemente?", Type:=1) If iAnz > 0 Then For i = 1 To iAnz ' Range("F10") = i & " von " & iAnz 'wenn diese Zeile aktiv = in F10 wird der Wert IMMER um 1 erhöht, egal ob Sa oder So If Weekday(Range("C8") + 1, vbMonday) > 6 And _ Weekday(Range("C8") + 1, vbMonday) > 7 Then Range("F10") = i & " von " & iAnz 'wenn diese Zeile aktiv = in F10 wird der Wert NUR DANN um 1 erhöht, wenn auch gedruckt wird If i > 1 Then Range("C8") = Range("C8") + 1 End If Beep ' ActiveWindow.SelectedSheets.PrintOut End If Next i End If End Sub

Hi René,

mein Name wird MIT "h" geschrieben...nur so als zusätzliche Hilfe wegen deiner "Schwäche", dass du dich nicht ganz richtig ausdrücken kannst.
(nein, ich bin keine "Prinzessin" :-), aber ich wurde nun mal so getauft wie angegeben)

Denn ja, damit hast du recht.
Anhand deiner bisherigen Beschreibungen hab ich es immer so verstanden, dass eben nur dann ein Ausdruck erfolgen soll, wenn der hochgezählte Tag nicht Samstag oder Sonntag ist.

Und auf die Gefahr hin, dass ich deine letzte, neue Beschreibung vielleicht wieder miss-interpretiere, frag ich nun lieber anhand eines Beispiels, ob ich dich richtig verstanden habe.

Also....
Eingabe Datum in C8 = 12.09.2023
Eingabe in Inputbox = 5

Eigentlich ergeben sich daraus die zu druckenden Tage
Di 12.09.2023
Mi 13.09.2023
Do 14.09.2023
Fr 15.09.2023
Sa 16.09.2023

Du willst aber, dass ein Wochenende immer übersprungen wird, die Anzahl der Ausdrücke aber trotzdem = Eingabe in Inputbox ist.
Daraus müssten sich dann Ausdrücke für diese Tage ergeben
Di 12.09.2023
Mi 13.09.2023
Do 14.09.2023
Fr 15.09.2023
Mo 18.09.2023

Noch ein anderes Bsp:
Eingabe Datum in C8 = 14.09.2023
Eingabe in Inputbox = 5

Eigentlich ergeben sich daraus diese zu druckenden Tage
Do 14.09.2023
Fr 15.09.2023
Sa 16.09.2023
So 17.09.2023
Mo 18.09.2023

Und auch hier soll a) das WE übersprungen und b) die Anzahl der Ausdrücke = Eingabe in Inputbox sein.
So ergeben sich nun diese zu druckenden Tage
Do 14.09.2023
Fr 15.09.2023
Mo 18.09.2023
Di 19.09.2023
Mi 20.09.2023

Oder?

Wenn ich auch das nun - nicht richtig - verstanden habe, dann zeig bitte per Upload eine Bsp-Datei, in der du per Hand die Tage einträgst, wie es am Ende sein soll.

Ciao
THorsten

Sub drucken() Dim iAnz As Integer, i As Integer, lboWE As Boolean iAnz = Application.InputBox(prompt:="Anzahl der Elemente?", Type:=1) If iAnz > 0 Then For i = 1 To iAnz Range("F10") = i & " von " & iAnz If i > 1 Then Range("C8") = Range("C8") + 1 End If Select Case Weekday(Range("C8"), vbMonday) Case 6 Range("C8") = Range("C8") + 2 lboWE = True Case 7 Range("C8") = Range("C8") + 2 End Select ActiveWindow.SelectedSheets.PrintOut If lboWE = True Then Range("C8") = Range("C8") - 2 lboWE = False End If Next i End If End Sub

Beliebteste Forumthreads (12 Monate)

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

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

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

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread