Microsoft Excel

Herbers Excel/VBA-Archiv

fortlaufende Nummerierung beim Druck


Betrifft: fortlaufende Nummerierung beim Druck
von: TS
Geschrieben am: 06.12.2018 12:04:40

Guten Tag zusammen.

Für unseren Verein habe ich einen Verzehrzettel (Excel / 1 Seite / Tabelle1) gemacht.

In der Zelle "F1" steht eine Zahl(startet ab 1500), die bei jedem Ausdruck um 1 erhöht werden soll (fortlaufende Nummerierung).
Ich möchte 500 Verzehrzettel ausdrucken.

Hat jemand eine VBA Lösung?

  

Betrifft: das Archiv hat lösungen. owT
von: Rudi Maintaire
Geschrieben am: 06.12.2018 12:15:06




  

Betrifft: AW: fortlaufende Nummerierung beim Druck
von: TS
Geschrieben am: 06.12.2018 12:23:52

Habe ich schon geschaut. Die fortlaufende Nummerierung bekomme ich hin, aber die Anzahl der zu druckenden Seiten nicht


  

Betrifft: AW: fortlaufende Nummerierung beim Druck
von: TS
Geschrieben am: 06.12.2018 12:27:32

Das habe ich für die fortlaufende Nummerierung

Sub Druck()

 Dim wert As String

 ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich

 wert = Range("F1").Value ' Bereich, wo Wert ist: J5 abändern
 Range("F1").Value = wert + 1 ' J5 abändern
 End Sub



  

Betrifft: AW: fortlaufende Nummerierung beim Druck
von: Werner
Geschrieben am: 06.12.2018 12:59:04

Hallo,

so:

Sub Druck()
Dim Anzahl As Long, i As Long

Anzahl = Range("A1") 'anpassen

For i = 1 To Anzahl
    ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich
    Range("F1") = Range("F1") + 1 ' J5 abändern
Next i
End Sub
Gruß Werner


  

Betrifft: AW: fortlaufende Nummerierung beim Druck
von: UweD
Geschrieben am: 06.12.2018 12:59:12

Hallo


so???


Sub Druck()
    Dim Anzahl, i As Integer
    
    Anzahl = InputBox("Wie viele?", "Druck", 500)
    If Not IsNumeric(Anzahl) Then MsgBox "Abbruch": Exit Sub
    For i = 1 To Anzahl
    
        ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich 
        With Range("F1")
            .Value = .Value + 1
        End With
    Next
End Sub


LG UweD


  

Betrifft: AW: fortlaufende Nummerierung beim Druck
von: TS
Geschrieben am: 07.12.2018 10:48:55

Danke Uwe

Klappt hervorrangend

Lieben Dank auch an alle anderen


  

Betrifft: gern geschehen owT
von: UweD
Geschrieben am: 07.12.2018 10:55:27