Thema Datum  Von Nutzer Rating
Antwort
21.07.2020 10:57:29 Mark
NotSolved
Blau Nach "Übernehmen" cursor wieder zurück ins Eingabefeld springen
 21.07.2020 10:59:14 Gast70182
NotSolved
21.07.2020 11:10:29 Werner
NotSolved

Ansicht des Beitrags:
Von:
Gast70182		 Datum:
21.07.2020 10:59:14		 Views:
480		 Rating:
     
Antwort:
  Ja
Thema:
Nach "Übernehmen" cursor wieder zurück ins Eingabefeld springen

Ich habe vergessen die bisherige Tabelle einzufügen:

 

rivate 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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.07.2020 10:57:29 Mark
NotSolved
Blau Nach "Übernehmen" cursor wieder zurück ins Eingabefeld springen
 21.07.2020 10:59:14 Gast70182
NotSolved
21.07.2020 11:10:29 Werner
NotSolved