UserForm / Datum eintragen
07.09.2003 10:47:55
Erich M.
habe eine UserForm aus der ich verschiedene Daten
in eine neu zu erstellende Tabelle eintragen lasse.
Wie kann ich aktuelles Datum und aktuelle Uhrzeit
eintragen lassen?
Private Sub CommandButton4_Click()
' Tabelle erstellen
Worksheets("Basis").Visible = True ' Tabelle ist per VBA ausgeblendet
Worksheets("Basis").Activate
' Ergebnisse eintragen
Cells(1, 3).Value = ComboBox1.Text
Cells(2, 3).Value = ComboBox2.Text
'Cells(8, 4).Value = ?? Wie kann ich hier Datum eintragen lassen??
'Cells(9, 4).Value = ?? Wie kann ich hier uhrezit eintragen lassen??
Worksheets("Basis").Copy after:=Sheets(1)
Worksheets("Basis").Visible = xlVeryHidden
Worksheets("Start").Activate
Unload Me
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige