Optimierung von VBA Code
20.12.2006 20:49:54
VBA
ich habe eine Textbox in der ich ein Datum eingeben will. Dieses Datum soll entweder als "normales Datum" (10.12.06) oder als Kurzform (10.12.) eingegeben werden können.
Wenn es als Kurzform eingegeben wird, wird per VBA das Jahr (DB_Jahr) angehängt.
Das in die Textbox eingegebene Datum soll als Datum Format in eine Zelle eingetragen werden. Falls sich die Eingabe nicht um ein Datum handelt, sollte der Text der Textbox als Text in die Zelle eingetragen werden.
Ich verwende dafür folgenden Code:
Private Sub Textbox_AfterUpdate()
If Textbox = "" Then Sheets(2).Cells(RowNR, 15) = "": Exit Sub
If IsDate(Textbox) = True Then
Sheets(2).Cells(RowNR, 15) = Format(Textbox.Value, "dd.mm.yy")
Else
If IsNumeric(Textbox) = True Then
Sheets(2).Cells(RowNR, 15) = Format(Textbox.Value & DB_Jahr, "dd.mm.yy")
Else
Sheets(2).Cells(RowNR, 15) = Textbox
End If
End If
End Sub
Ich bin mir sicher, daß dies keine optimale Lösung ist. Daher suche ich nach einer eleganteren Lösung.
Gruß
Dieterlem