Private Sub Abbrechen_Click()

'Eingabefenster schließen'
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()

'Eingaben der Schaltflächen in die Arbeitsmappe übernehmen'

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()
'Einträge für die Schaltflächen'

meinFormular.Auftragsnummer = "Eingabe"
meinFormular.Datum.Value = Now
meinFormular.Datum = Format(meinFormular.Datum.Value, "dd mmmm yyyy hh:mm:ss")


'Erste Textbox beim Start schon markiert'

With meinFormular.Auftragsnummer
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Text)
End With

End Sub

Was meine Eingabemaske noch nicht kann bzw. was sie können muss:

1.Statt eines Button für die Aktivierung des Eingabefensters möchte ich eine schwebende Maske einbauen. Das heißt diese ist immer „schwebend und im Vordergrund“  und somit wäre der „Eingabemaske starten“ Button obsolet.

2.Gesamte Tabelle lässt sich nur unter „Beenden“ schließen und alles Eingegebene wird automatisch gespeichert.

3.Einmal eingegebene Auftragsnummern sind nicht vom Anwender veränderbar.

4.Auftragsnummer muss immer numerisch und 7-Stellig sein.

5.Button zum Löschen des Eingabefeldes falls Nummer mal falsch eingetippt wird. 6.Die letzte Auftragsnummer die Eingegeben wird ist immer ganz oben und "drückt" die vorherige Nummer eine Zeile weiter nach unten. Da ich überhaupt keine VBA-Kenntnisse habe, hoffe ich jemand kann mir den fehlenden Code posten. Vielen Dank.