Excel in Benutzerformular Textfeld mit VBA

Question

Ich möchte den Wert von textbox2 beim Beenden von Textbox1 oben ausgefüllt werden, aber VBA-Code funktioniert nicht.

Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    textbox1.Value = Format(textbox1.Value, "dd/mm/yyyy") 
    textbox2.Value.Formula = "=Right(if(month(textbox1.value)>3,Year(textbox1.value)+1,Year(textbox1.value)),2)" 
End Sub 

Answer 1

Weder Textbox Objekt noch seine .Value Eigenschaft haben Formula Mitglied, wie range Objekt hat.

So müssen Sie Berechnungen direkt im Code vornehmen.

Versuchen Sie, diese

Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    TextBox1.value = Format(TextBox1.value, "dd/mm/yyyy") 
    TextBox2.value = Right(CStr(IIf(Month(TextBox1.value) > 3, Year(TextBox1.value) + 1, Year(TextBox1.value))), 2) 
End Sub 

könnten Sie auch gehen:

Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    TextBox1.value = Format(TextBox1.value, "dd/mm/yyyy") 
    TextBox2.value = IIf(Month(TextBox1.value) > 3, Year(TextBox1.value) + 1, Year(TextBox1.value))) mod 1000 
End Sub