Print side | Luk vindue

TextBox - Komma/Punktum problem

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2088
Udskrevet den: 02.Feb.2025 kl. 18:10


Emne: TextBox - Komma/Punktum problem
Besked fra: Ib Hansen
Emne: TextBox - Komma/Punktum problem
Posteringsdato: 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" rel="nofollow - 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


Svar:
Besked fra: Ib Hansen
Posteringsdato: 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" rel="nofollow - 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


Print side | Luk vindue