VB Script unter Excel einzigartige NummerVBA Script in Excel einzigartige Nummer aus Datum und Uhrze

[jaydee2k7]

Hi Leute,

ich möchte mit einen VBA Script in Excel erstellen: es handelt sich um eine einzigartige Nummer zusammengesetzt aus Jahr Monat und Uhrzeit. Könnt Ihr mir dabei bitte helfen?

Soweit bin ich funktioniert aber noch nicht 100%tig..

Private Sub CommandButton1_Click()

Dim NummerNeu As String, NummerAlt As String, MonatAlt As String, MonatNeu As String

Test = MsgBox("Soll neue Rechnungsnummer erzeugt werden?", vbOKCancel, "Neue Rechnungsnummer")
If Test = vbCancel Then Exit Sub

NummerAlt = Range("B16").Value
Datum = Range("G16").Value
MonatAlt = Mid(NummerAlt, 5, 2)
MonatNeu = Format(Month(Datum), "00")
If MonatNeu = MonatAlt Then
NummerNeu = Left(NummerAlt, 6) & Format(Val(Right(NummerAlt, 4)) + 1, "0000")
Else
NummerNeu = Year(Datum) & Format(Month(Datum), "00") & "0001"
End If
Range("B16").Value = NummerNeu
End Sub

Hinzuzufügen ist da ich dies machen muss da ich aus Schreibgeschützen Dokument jedesmal eine neue Nummer generieren lassen muss da bietet sich eben das zusammenspiel des Datums und der Uhrzeit als einzigartige Nummer die nicht immer gespeichert werden muss.