Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

Bereich

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