Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

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