VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Druck

Bereich

Bereich

Thema

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

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