Jahreszahl zweistellig aus UF in Tabelle
26.11.2008 16:42:00
Herbert
Ich habe eine UF mit zwei Optionbutton um die Jahre 2008 und 2009 auszuwählen, anschließend mit dem Zellinhalt umformatiert zurückzuschreiben. Mit dem Code habe ich aber beim Zurückgeben das Jahr 1905 bzw. 05 und habe keine Ahnung warum ;-(
Beim einlesen auf die Caption wird es aber richtig dargestellt.
Vielleicht kann mir jemand die Scheuklappen von den Augen entfernen.
Danke im Voraus
Gruß Herbert
Private Sub OptionButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Eintrag As String
On Error Resume Next
jahr = Year(Now)
Eintrag = Range("P5").Value
Range("P5").Value = Format(jahr, "yy") & "/" & Format(Eintrag, "000") & "A"
Unload Me
End Sub
Private Sub OptionButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Eintrag As String
On Error Resume Next
jahr = Year(Now) + 1
Eintrag = Range("P5").Value
Range("P5").Value = Format(jahr, "yy") + 1 & "/" & Format(Eintrag, "000") &
"A"
Unload Me
End Sub
Private Sub UserForm_Initialize()
With frmNatoNr
.OptionButton1.Caption = Year(Now)
.OptionButton2.Caption = Year(Now) + 1
End With
End Sub