Benutzerformularbox wird nicht korrekt ausgefüllt vba

Question

Ich erstelle ein Benutzerformular, das die Benutzereingabedaten enthält, und es überträgt es dann auf ein anderes Blatt mit dem Titel "Tracker". Als Teil des Formulars markiere ich alle Einträge mit dem aktuellen Datum, das ich in einem Textfeld habe, aber es wird nicht angezeigt, bis Sie das Formular ausführen, in das Textfeld klicken und versuchen, etwas einzugeben. Hier ist mein Code, der hoffentlich mein Projekt ein wenig deutlicher vermitteln wird.

Private Sub CommandButton3_Click() 
    Dim LastRow As Long, ws As Worksheet 

    Set ws = Sheets("Tracker") 
    Sheets("Tracker").Select 
    LastRow = ws.range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row 
    ws.range("A" & LastRow).Value = date_txtb.Text 'Adds the TextBox3 into Col A & Last Blank Row 
    ws.range("B" & LastRow).Value = ComboBox1.Text 'Adds the ComboBox1 into Col B & Last Blank Row 


End Sub 

Private Sub date_txtb_Change() 
date_txtb.Text = Format(Now(), "MM/DD/YY") 
End Sub 

Command Button 3 überträgt die Daten aus dem Benutzerformular zum „Tracker“ Blatt und die Unter Unten ist der Code für das Textfeld, das angeblich das aktuelle Datum anzuzeigen. Was kann ich hinzufügen oder ändern, um sicherzustellen, dass das Datum ausgefüllt wird, sobald das Formular initialisiert wird? Jede Hilfe wird geschätzt, danke!

Answer 1

Verwenden Sie ein UserForm-Ereignis. Wenn das Benutzerformular geladen wird, wird das Datum angezeigt.

Private Sub UserForm_Initialize() 
    date_txtb.Text = Format(Now(), "MM/DD/YY") 
End Sub