VBA-formatering af input i TextBox

Formater cellen som tal og benyt tusindtalsseparator.

Det forstår jeg ikke. Hvordan gør jeg det i VBA? Det er det spørgsmålet går på? Det er måske også det, du svarer på, men så ved jeg bare ikke hvordan det gøres.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1 = Format(TextBox1, "##,##0")
End Sub

Mange tak til kabbak - Det er en perfekt løsning.
Sender du et svar?

Øv - virker ikke helt alligevel.
Alt input er OK.
Men hvis jeg fx. indtaster 50000 i Textboxen, så formateres tallet automatisk, så der står 50.000. Perfekt!

Men når jeg trykker OK og afleverer tallet til en celle i regnearket, så afleveres kun tallet 50.
Koden ser sådan her ud:

    ActiveWorkbook.Sheets("Annuitet").Activate
    Range("A1").Select
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(0, 1) = TextBox2.Value
osv.

ActiveCell.Offset(0, 1) = replace(TextBox2,".","")

undskyld det korte svar, men det skyldes at tusindtals separatoren , er fysisk i tekstboksen, så den skal fjernes, ellers tror excel at det er decimaler efter punktummet.


så:

ActiveWorkbook.Sheets("Annuitet").Activate
    Range("A1").Select
    ActiveCell.Value = replace(TextBox1,".","")
    ActiveCell.Offset(0, 1) = replace(TextBox2,".","")

og et svar ;-))

Super og mange tak - send venlist et svar. :-))

Kan du i øvrigt nemt svare på, en alternativ løsning for valg af de celler, som jeg vil aflevere inputtet i - altså et alternativ til:

  ActiveWorkbook.Sheets("Annuitet").Activate
  Range("A1").Select
  ActiveCell.Value = TextBox1.Value

Kan man ikke klare det i én kodelinje. Det er fordi jeg gerne vil placere inputtet i celler, som ikke ligger i rækkefølge.
Jeg forhøjer selvfølgelig pointene, hvis du også kan give et svar på dette.

Range("A1") = TextBox1

ActiveWorkbook.Sheets("Annuitet").Range("A1")= TextBox1

Så siger jeg mange tak.