Format klappt nicht
Norbert
habe folgende Funktion
Function Neue_No()
Dim No, No1, No2, No3 As String
r = Anzahl
No1 = Format(Date, "mmyy")
No2 = Right(Cells(r - 1, 1).Value, 3) + 1
No3 = Left(Cells(r - 1, 1).Value, 4)
If No1 = No3 Then
No = No1 & No2
Else: No = No1 & "001"
End If
Cells(r, 1) = No
End Function
No ist eine Zahl aus Monat + Jahr (0404) & einer laufenden Nummer (3-stellig).
Beispiel 0404168
Ändert sich Monat + Jahr soll die laufende Nummer wieder bei 001 beginnen.
Und hier liegt mein Problem (Else-Zweig No = No1 & "001").
Es wird dann angezeigt 05041 aber es soll in dem Format 0504001 angezeigt werden.
Wo liegt mein Fehler oder wie Formatiere ich das richtig?
Danke
Norbert