Zelle mit VBA formatieren
06.07.2007 15:58:00
Matthias
Mittels VBA öffne ich ein Formular, gebe in ein Textfeld ein Datum ein (in irgendeinem Format) und der Inhalt dieses Textfeldes wird wieder per VBA in eine Zelle geschrieben. Nun soll in dieser Zelle jedoch das Format immer xx.xx.xxxx sein. Egal wie ich es eingebe. Ist das möglich und wenn ja, wie?
Meine Codes:
Sub NeuerFall()
Dim intLast As Integer
Dim Eingang As Date
Application.ScreenUpdating = False
Sheets("Chronologie").Select
Cells(19, 1).Select
Selection.End(xlDown).Select
intLast = Selection.Row + 1
Load formNeuerFall
formNeuerFall.Show
Cells(intLast, 1).Value = formNeuerFall.Eingang.Value
Unload formNeuerFall
End Sub
Über einen Tipp bin ich sehr dankbar!
Matthias
Anzeige