Drucken mit fortlaufendem Datum
01.01.2017 13:37:53
Ralf
Ich drucke Formulare mit fortlaufendem Datum. Mein Problem :
a.) ich kann noch immer kein VBA
b.) im Makro unten werden Samstage und Sonntage mit gedruckt - das soll nicht so sein. Ich weiß nicht, wie das gehen könnte! Irgendwie muss wohl rng+1 modifiziert werden. Kann mir jemand weiterhelfen.
Ich danke schon jetzt recht herzlich für die Hilfe. DANKE.
Gruß. Ralf Altwicker.
Schon vor langer Zeit hat man mir mit folgendem weitergeholfen:
(so muss ich immer Papier entsorgen.)
Sub drucken_mit_datum()
Dim rng As Range
Dim iAnz As Integer
Dim iCnt As Integer
Set rng = Range("B4") 'Zelle mit dem Datum
Do
iAnz = Application.InputBox("Bitte anzahl der Kopien angeben!" & vbLf & _
"( 1 bis 100 )", "Anzahl!", 100, Type:=1)
If iAnz = False Then Exit Sub
If iAnz > 0 And iAnz Anzeige