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

Drucken mit fortlaufendem Datum

Forumthread: Drucken mit fortlaufendem Datum

Drucken mit fortlaufendem Datum
09.11.2004 10:04:16
Andreas
Hallo zusammen!
Ich möchte ein in Excel erstelltes Formular (Tagesprotokoll) drucken. Für jeden Tag brauche ich ein ein Formular mit dem aufgedruckten Datum und mache immer so 100 Blatt im Voraus. Bisher hab ich die Serienbrieffunktion von Word benutzt und das Datum extra nochmal eingedruckt. Das ist aber sehr umständlich.
In VBA bin ich nicht so gut, deshalb meine Frage: Hat jemand zufällig ein passendes Makro das bei jedem Ausdruck das Datum um 1 erhöht und wo ich die Anzahl der gewünschten Blätter eingeben kann? Oder gibts vielleicht eine andere Lösung?
Danke für eure Hilfe
Gruß
Andreas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken mit fortlaufendem Datum
Josef
Hallo Andreas!
Sollen Samstage und Sonntage auch ausgedruckt werden, oder nur Wochentage?
Gruß Sepp
AW: Drucken mit fortlaufendem Datum
09.11.2004 10:49:27
Andreas
Hallo Josef,
ich brauch alle Tage, auch Sa,So,Feiertag (im Format "Mo 9. Nov. 2004").
Das Format hab ich schon (verküpft über Formel), in der Zelle K1 steht das zugehörige Datum
Gruß
Andreas
Anzeige
AW: Drucken mit fortlaufendem Datum
Josef
Hallo Andreas!
Probier mal.

Sub drucken_mit_datum()
Dim rng As Range
Dim iAnz As Integer
Dim iCnt As Integer
Set rng = Range("K1")  '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 < 101 Then Exit Do
Loop
For iCnt = 1 To iAnz
ActiveSheet.PrintOut
rng = rng + 1
Next
End Sub

Anzeige
AW: Drucken mit fortlaufendem Datum
09.11.2004 11:28:25
Andreas
funktioniert super!!!!
Danke für die schnelle Antwort :-)))))))
Andreas
;
Anzeige
Anzeige

Infobox / Tutorial

Drucken mit fortlaufendem Datum in Excel


Schritt-für-Schritt-Anleitung

Hier zeigen wir dir, wie du ein Excel-Dokument mit einem fortlaufenden Datum erstellen und drucken kannst. Diese Anleitung nutzt ein einfaches VBA-Makro:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

  2. Gib in die Zelle K1 das Startdatum ein.

  3. Öffne den VBA-Editor:

    • Drücke ALT + F11.
  4. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.
  5. Kopiere den folgenden Code in das Modul:

    Sub drucken_mit_datum()
       Dim rng As Range
       Dim iAnz As Integer
       Dim iCnt As Integer
       Set rng = Range("K1")  '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 < 101 Then Exit Do
       Loop
       For iCnt = 1 To iAnz
           ActiveSheet.PrintOut
           rng = rng + 1
       Next
    End Sub
  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Führe das Makro aus:

    • Drücke ALT + F8, wähle drucken_mit_datum und klicke auf "Ausführen".

Jetzt kannst du die Anzahl der gewünschten Druckblätter angeben, und das Datum wird bei jedem Druck um einen Tag erhöht.


Häufige Fehler und Lösungen

  • Fehler: Makro wird nicht ausgeführt
    Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Du kannst dies unter "Datei" > "Optionen" > "Sicherheitscenter" > "Einstellungen für das Sicherheitscenter" überprüfen.

  • Fehler: Datum wird nicht aktualisiert
    Lösung: Stelle sicher, dass du die richtige Zelle (K1) für das Datum angegeben hast. Ändere die Zeile Set rng = Range("K1") entsprechend, wenn du eine andere Zelle verwendest.


Alternative Methoden

Falls du kein VBA nutzen möchtest, kannst du auch eine Excel-Tabelle mit fortlaufendem Datum erstellen, indem du folgende Schritte befolgst:

  1. Gib das Startdatum in die erste Zelle einer Spalte ein.
  2. Nutze die Autofill-Funktion:
    • Ziehe die untere rechte Ecke der Zelle nach unten, um die Daten automatisch fortlaufend zu füllen.

Das Drucken dieser Tabelle kannst du anschließend über "Datei" > "Drucken" durchführen.


Praktische Beispiele

Hier ist ein Beispiel, wie du eine Excel-Tabelle mit fortlaufendem Datum erstellen kannst:

  1. In A1 gib ein Datum ein, z.B. 01.01.2023.
  2. In A2 schreibe die Formel =A1+1.
  3. Ziehen die Formel in A2 nach unten, um die folgenden Tage automatisch auszufüllen.

Du kannst diese Tabelle dann drucken oder sie für ein fortlaufendes Protokoll in Excel nutzen.


Tipps für Profis

  • Nutze Formatierungen, um das Datum in deinem gewünschten Stil anzuzeigen, z.B. TT MMMM JJJJ für "09. November 2004".
  • Wenn du regelmäßig Berichte druckst, überlege, ein Benutzerformular in VBA zu erstellen, um die Bedienung zu vereinfachen.
  • Stelle sicher, dass du beim Drucken von Excel auf die Druckvorschau zugreifst, um sicherzustellen, dass alles korrekt aussieht.

FAQ: Häufige Fragen

1. Kann ich das Makro auch für andere Formate verwenden?
Ja, du kannst das Format des Datums in der Zelle anpassen, um unterschiedliche Darstellungen zu erhalten.

2. Funktioniert das auch in Excel Online?
Leider funktioniert VBA nur in der Desktop-Version von Excel. In Excel Online musst du alternative Methoden verwenden.

3. Gibt es eine Möglichkeit, Feiertage zu berücksichtigen?
Das VBA-Makro selbst erhöht nur das Datum, eine Anpassung für Feiertage erfordert zusätzliche Logik im Code.

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