Private Sub Abbrechen_Click()
Unload meinFormular
End Sub
Private Sub Bearbeiternummer_Change()
End Sub
Private Sub Datum_Change()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Übernehmen_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = meinFormular.Auftragsnummer.Value
ActiveSheet.Cells(last, 2).Value = CDate(meinFormular.Datum.Value)
Unload Me
End Sub
Private Sub UserForm_Initialize()
meinFormular.Auftragsnummer = "Eingabe"
meinFormular.Datum.Value = Now
meinFormular.Datum = Format(meinFormular.Datum.Value, "dd mmmm yyyy hh:mm:ss")
With meinFormular.Auftragsnummer
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub