HERBERS Excel-Forum - die Beispiele

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