VisualBasic VBA fortlaufende Nummerierung

[sens.sash]

Hi Leute,

folgende Problematik:
Ich habe einen Fertigungsbeleg angefertigt. Dieser soll, sobald er gedruckt wird eine Nummer bekommen.
Diese Nummer soll sich pro Ausdruck um 1 erhöhen.
Auf folgender Seite ist sowas ähnliches gut beschrieben aber ich bekomme es nicht hin den "Button" zu erstellen.

http://ms-excel.eu/vba/vba-sonstiges/vba-fortlaufende-rechnungsnummer.html

Könnt ihr mir weiterhelfen?

Ich probiere es vielleicht mal mehr auf den Punkt zu bekommen:

Folgender Code soll mithilfe der SChaltfläche aktiviert werden.

Option Explicit

Sub Rechnungsnummer()
Dim RechNr As Long
Dim Jahr As Integer
    Jahr = ActiveWorkbook.BuiltinDocumentProperties(6)
    RechNr = ActiveWorkbook.BuiltinDocumentProperties(5)
    If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
    If Jahr <> Year(Date) Then
        RechNr = 0
        Jahr = Year(Date)
        ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr
    End If
    RechNr = RechNr + 1
    ActiveWorkbook.BuiltinDocumentProperties(5) = RechNr
    Range("A5") = Format(RechNr, "00000") & "/" & Jahr
End Sub

Danke!

 

[Syberdoor]

Ich versteh nicht ganz wie du das mit dem "Button" meinst... wenn du das per ausdruck machen willst dann musst du vermutl den code auf das print event aufhängen, das geht scheinbar mit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'whatever you want here
End Sub

wenn du im Dokument selber einen Button machen willst den die Leute clicken und es soll nur damit funktionieren, dann musst du einfach einen button einfügen, das geht mit den Entwicklertools eigentlich recht einfach. Da gibts einfach "Einfügen" und dann kannst einen Button direkt reinziehen mit Drag&Drop.
Die Entwicklertools sind standardmäßig ausgeblendet, je nachdem welche Excel Version du hast ist die anders einzublenden bei Office 2010 (und vemrutl auch 2013) ist das in "Optionen" "Menüband anpassen" und einfach das Häkchen rechts beim Entwicklertools Menü setzen

 

[sens.sash]

Hallo und danke für deine Antwort,

ich habe es jetzt wie folgt gemascht

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim RechNr As Long
Dim Jahr As Integer
    Jahr = ActiveWorkbook.BuiltinDocumentProperties(6)
     RechNr = ActiveWorkbook.BuiltinDocumentProperties(5)
     If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
    If Jahr <> Year(Date) Then
        RechNr = 0
        Jahr = Year(Date)
        ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr
    End If
    RechNr = RechNr + 1
    ActiveWorkbook.BuiltinDocumentProperties(5) = RechNr
    Range("A5") = Format(RechNr, "00000") & "/" & Jahr

End Sub

"hinter" Tabellenblatt 1 eingefügt aber beim drucken erscheinen dennoch keine fortlaufenden Nummern.

Kannst du nochmal helfen?

 

[Syberdoor]

Was bedeutet "hinter Tabellenblatt 1" ?

Wenn ich deinen Code im VBA Editor bei DieseArbeitsmappe reintu und druck hab ich danach in A5 "00001/2014" stehen und mit jedem Drucken wird die vordere Zahl erhöht. Das einzige was ein bisschen merkwürdig ist auf diese Weise ist dass du noch immer den Dialog zum Drucker auswählen hast, obwohl man ja den Drucker schon zuvor ausgewählt habe... Die Zeile würd ich möglicherweise streichen