Liebe/-r Experte/-in,
Ich hab ein großes Problem,
also ich würde gern eine Rechnungsnummer in dem Format erstellen: Jahr-Rechnungskreis-fortlaufendeNr also 2010-1-01
das Jahr soll sich immer dem Rechnungsjahr angleichen und in jedem neuen Jahr soll die fortlaufende Nummer von 1 neu beginnen.
die nummer soll nach jedem abspeichern und neu öffnen neu erzeugt werden und darf nur einmal vergeben werden.
Verstehen Sie was ich meine?
Bitte um schnelle hilfe…
danke
Romy
//****************************************************
Hallo Romy!
Vielleicht hilft dir das Makro:
Sub RNr()
Dim RechNr As Long
Dim Jahr As Long
RechNr = ActiveWorkbook.BuiltinDocumentProperties(10)
RechNr = RechNr + 1
Jahr = Year(Date)
ActiveWorkbook.BuiltinDocumentProperties(10) = RechNr
Range(„A10“) = Jahr & „/“ & „1“ & „/“ & Format(RechNr, „00000“)
End Sub
Gruß
Ersin Söbütay
Hallo,
das klappt soweit…
ich möchte nun aber das die laufende Nummer, bei 2010-1-01 --> die 01, immer wenn ich auf meinen Button drücke wo ich es drucke und es automatisch unter der Rechnungsnummer gespeichert wird um 1 weitergezählt wird… also wenn ich auf meinen druckbutton geh soll es eins weiterzählen und das soll auch händisch nicht zu ändern sein…
verstehst du?
Ich kann auch gern ein Beispiel schicken wenn du möchtest.
//****************************************************
//**
Hallo Romy!
Es wäre schon, wenn du mir das Bsp. schicken könntest - vielleicht mit einer kurzen Erklärung, was gemacht werden soll.
Gruß
Ersin Söbütay