Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Auto-Nummerieren (mit Datum) beim Druck

Forumthread: Auto-Nummerieren (mit Datum) beim Druck

Auto-Nummerieren (mit Datum) beim Druck
17.04.2013 17:10:58
Johan
Liebe Kolleginnen und Kollegen,
ich möchte eine Tabelle mehrmals ausdrucken. Beim Ausdruck soll jede Seite entsprechend der Printanzahl auto-nummeriert (mit Datum) werden. Beispiel:Tabelle 1 soll 4 ausgedruckt werden. Beim ersten Ausdruck steht das aktuelle Datum, beim zweiten Ausdruck -aktuelle Datum + 1 Tag, usw...
________________________________________________________
Ich habe folgenden Code verwendet:
Private Sub CommandButton1_Click()
anzahl = InputBox("Anzahl Druckformulare?")
For i = 1 To anzahl
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + (i - 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

_________________________________________________________
Nun mein Problem: der erste und zweite Ausdruck erscheinen wie gewünscht. Beim 3 Ausdruck kommen 2 Tage -anstatt 1 Tag- hinzu. Beim 4 Ausdruck kommen 3 Tage - anstatt 1- hinzu, usw..
Könnt ihr mir weiterhelfen? Was habe ich falsch gemacht?
Beste Grüße
Johan

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auto-Nummerieren (mit Datum) beim Druck
17.04.2013 17:22:51
Oberschlumpf
Hi Johan
Versuch mal:
anstelle von
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + (i - 1)
schreibst du

If i = 1 Then
ActiveSheet.Range("b2") = ActiveSheet.Range("b2")
Else
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + 1
End If
Hilfts?
Ciao
Thorsten

Anzeige
AW: Auto-Nummerieren (mit Datum) beim Druck
17.04.2013 17:31:52
Johan
Hi Thorsten,
perfek! Genauso wollte ich es haben.
Vielen Dank und bis zum nächsten mal,
johan

alles Murks
17.04.2013 17:37:21
Oberschlumpf
Hi Johan
Na ja, nich wirklich murks, aber....
...die Zeile unterhalb von If i = 1 kannst du komplett vergessen.
Denn ActiveSheet.Range("b2") = ActiveSheet.Range("b2") ist das Gleiche, als ob ich schreibe 1 = 1, is also überflüssig.
Lösch meinen Code mal und schreib das hier dahin:

If i > 1 Then
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + 1
End If
Hilfts?
Ciao
Thorsten
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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