Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketTextBox - Komma/Punktum problem
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Direkte link til dette indlæg Emne: TextBox - Komma/Punktum problem
    Sendt: 25.Apr.2015 kl. 19:25
Hej Forum.

Jeg har et komma / punktum problem, jeg desværre har oplevet flere gange før, når en værdi til en celle tastes vha. en UserForm/TextBox.

(Sikkert noget med at den engelske tusind-separator, som er komma, konflikter med den danske øre-separator i VBA) Angry


Jeg har vedhæftet et Excel eksempel, hvor problemet er beskrevet.
Her kan det også testes.
uploads/1125/TextBox_-_Komma_-_Punktum_-_Sum.xlsm

Hvis den kode jeg prøver at bruge, er helt forkert, vil jeg blive umådelig glad, hvis jeg kunne få hjælp til en brugbar kode.

På forhånd tak.

Mvh.
Ib
Til top



Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Direkte link til dette indlæg Sendt: 26.Apr.2015 kl. 17:04
Hej Forum.

Jeg løste den selv, efter at have lagt hovedet lidt i blød.
uploads/1125/1_TextBox_-_Komma_-_Punktum_-_Sum.xlsm


Først lavede jeg en general Function med Replace.

Function Korriger_Format(MyString As String)
    MyNorm = Replace(MyString, ",", ".", 1, Len(MyString), vbTextCompare)
    Korriger_Format = MyNorm
End Function

Herefter henviste jeg Textboxen til denne Function.

Private Sub TextBox1_Change()
    Sheets(1).Range("A2") = Korriger_Format(TextBox1.Text)
End Sub

På denne måde kan jeg henvise andre TextBoxe i samme UserForm, til at konvertere komma til punktum.


Mvh.

Ib
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk