Die Profis unter Euch werden wahrscheinlich nur müde gähnen, aber ich habe jetzt den ganzen Tag probiert und weiß nicht weiter.
Ich habe mir folgenden Code aus dem Archiv geholt, klappt super
Private Sub Workbook_Open()
Dim OldNR As String
Dim TempNr As Integer
'Deine Nummer steht in A1
OldNR = Range("A1").Value
'die eigentliche Nummer extrahieren und mit 1 multiplizieren
'damit damit gerechnet werden kann
TempNr = Left(OldNR, Len(OldNR) - 5) * 1
'Neue Nummer in A1 eintragen
Range("A1").Value = (TempNr +1) & Format(Now(), "MM") & "/" & Format(Now(), "YY")
End Sub
Dann sieht das Rechnungsnr. Format so aus z.B. die erste des Jahres 2003: 101/03.
Ich möchte aber gerne 2003010001, d. h. erst das Jahr vierstellig, dann den Monat zweistellig und dann die laufende Nummer vierstellig, also unter 1000 mit Nullen vorweg.
Wer weiß Rat?
Danke jetzt schon
Euer verzweifelter
Kuno