Thema: Label in Zelle A1 bei jedem Ausdruck um 1 hochzählen

Home

Gruppe

Druck

Problem

Wie kann ich eine Zeichenfolge in der Form 1999-1001 bei jedem Ausdruck um 1 höherzählen lassen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub SerienDruck()
   Dim intCounter As Integer
   Application.ScreenUpdating = False
   For intCounter = 1001 To 1003
      ActiveSheet.PrintOut
      Range("A1").Value = Left(Range("A1"), 5) & _
         CInt(Right(Range("A1"), 4) + 1)
   Next intCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich

PDF Drucken VBA	Dynamischer Datenbereich im Diagramm
Generierung von Tabs per VBA + Sammeldruck	Bereich als Bild speichern.
Akt. Datum und Uhrzeit am gedruckten Dokument	1. freie Zelle in nicht zusammenhängenden Bereich
Bestimmtheitsmass nach vorgegebenen Bereich	UserForm im Querformat drucken
Bestimmten Bereich anhand Zeilenabgabe kopieren	Bereich löschen
Array - Index außerhalb des gültigen Bereichs	zoom auf Druckbereichsbreite anpassen
Bilder in Registerblatt drucken	Bereich syncronisieren II
PDF eventuell Ausdruck sperren?	Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite	Druckprobleme....
Definitionsbereich	Bereich von rechts nach links auslesen?
Tabellenblätter Ausdruck gruppieren	Drucken mit VBA
Namen definieren für bestimmten Bereich	Nur einen Eintrag im Bereich zulassen
Kommentar in erste zelle einess Bereiches	Bestimmte Zeilen/ Spalten nicht mitdrucken
bedingte Formatierung für zellenbereich	Diagramme DIN A3 drucken
Summewenn mit abhängigen Bereichen	Bereiche in separates sheet
Summewenn mit abhängigen Bereichen	Automatischen Andruck auf Standartdrucker erzeugen
Absturz bei lokalen Bereichsnamen	Druckerauswahl
Blätter autom. ein-/ausblenden + drucken	Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung	Arbeitsmappendruck
Teilbereich einer Zelle einfärben	Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei	Fehler 1004 beim Druck einer PDF - mit Screenshot
Gruppierten Bereich sperren	Bestimmte Zahlen aus einem Bereich
Bereich nur unter best. Voraussetzg. summieren	Druckeinstellungen für mehrere Drucke übernehmen
Name eine benannten Bereiches finden	Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken	Druckparameter an neue Datei