Hallo,
den Code kopierst du in ein neues Modul (Modul1):
Option Explicit
Private Const WORKSHEET_NAME As String = "Tabelle1"
Private Const WORKSHEET_COLUMN As String = "A"
Public Sub add_datetime()
Dim wks As Worksheet
Set wks = Worksheets(WORKSHEET_NAME)
With wks
.Cells(.Cells(.Rows.Count, WORKSHEET_COLUMN).End(xlUp).Row + 1, WORKSHEET_COLUMN).Value = Now
End With
Set wks = Nothing
End Sub
Dann passt du bitte die Werte für "WORKSHEET_NAME" und "WORKSHEET_COLUMN" an - falls diese nicht schon richtig sind.
Anschließend fügst du durch einen Doppelklick auf deinen Button die Methode für das Clickereignis ein.
Der Code sollte am Ende so aussehen:
Option Explicit
Private Sub CommandButton1_Click()
Call Modul1.add_datetime
End Sub
Gruß
|