So?
Modul1:
Option Explicit
Private Const WORKSHEET_NAME As String = "Tabelle1"
Private Const WORKSHEET_COLUMN As String = "A"
Private Const WORKSHEET_COLUMN_STATUS As String = "B"
Public Sub add_datetime(ByVal Statustext As String, Optional ByVal markieren As Boolean = False)
Dim wks As Worksheet
Dim l As Long
Set wks = Worksheets(WORKSHEET_NAME)
With wks
l = .Cells(.Rows.Count, WORKSHEET_COLUMN).End(xlUp).Row + 1
.Cells(l, WORKSHEET_COLUMN).Value = Now
.Cells(l, WORKSHEET_COLUMN_STATUS).Value = Statustext
If markieren Then
.Range(.Cells(l, WORKSHEET_COLUMN), .Cells(l, WORKSHEET_COLUMN_STATUS)).Interior.color = vbRed
End If
End With
Set wks = Nothing
End Sub
UserForm1:
Option Explicit
Private Sub CommandButton1_Click()
Call Modul1.add_datetime("i.O.")
End Sub
Private Sub CommandButton2_Click()
Call Modul1.add_datetime("n.i.O.", True)
End Sub
Gruß
|