ich habe eine Eingabemaske mit nur zwei Feldern: Ein Feld für die Eingabe einer Auftragsnummer und ein Feld als Datum.
Das Datums Feld ist immer vorbelegt mit dem jetzigen Timestamp, aber es besteht die Möglichkeit rückwirkend Daten einzugeben und somit ist dieses Feld auch veränderbar .Unten gibt es zwei Button "Übernehmen" und "Abbrechen"
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.