Datumsformat
16.03.2004 01:18:10
DieterG
mit Textbox (Userform) wir ein Datum in eine Tabelle eingetragen!
Frage:
Wie kann ich das Datumsformat TT.MMM. JJJJ der Activecell in der das Datum eingetragen wird festlegen und wie schaffe ich es, damit in der Nachbarzelle links neben der Activecell der dazugehörige Wochentag eingetragen wird?
Danke für die Hilfe
Gruß Dieter
Private Sub OK_Click()
If Datum.Value = "" Then
MsgBox ("Sie müssen zuerst ein Datum eingeben!"), 64, "Hinweis"
Exit Sub
End If
Application.Goto Reference:="Muster"
Selection.Copy
Range("A20000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 1).Range("A1").Select
ActiveCell.Value = Datum.Value
Application.CutCopyMode = False
Me.Hide
End Sub
Anzeige