formatering af textbox i userform

Min nuværende makro til åbning af userform og indlæsning af værdier i textboxene er:

Sub swaptionmaker()
SwaptionInput.TextBox1.Value = CDate(Range("startdate").Value)
SwaptionInput.TextBox2.Value = Range("EndDate").Value
SwaptionInput.TextBox8.Value = Range("Interest_rate2").Value
SwaptionInput.Show
End Sub

1) Prøv med: Format(TekstboksX,"dd-mm-yyyy")

Private Sub UserForm_activate()
    TextBox1.Value = Format(Cells(1, 1), "dd-mm-yyyy")
    TextBox2.Value = Format(Cells(2, 1), "#0.00%")
End Sub

nu har supertekst svaret, men sådan skal den se ud

Sub swaptionmaker()
SwaptionInput.TextBox1.Value = Format(Range("startdate"), "DD-MM-YYYY")
SwaptionInput.TextBox2.Value = Format(Range("EndDate"), "DD-MM-YYYY")
SwaptionInput.TextBox8.Value = Format(Range("Interest_rate2"), "0%")
SwaptionInput.Show
End Sub


om det skal være #0.00% eller 0%

afgør om der er decimaler

Nææh hvopr dejligt.

Kabbak ramte 100% korrekt, men jo... supertekst var hurtigst og jeg havde regnet den ud fra hans svar.

supertekst: læg svar

Så får du et svar & tak!