|
Servus,
ich muss vorweg schon mal sagen, dass ich leider nicht viel Ahnung von VBA habe und den Code leider auch nur zusammengewürfelt aus verschiedenen Foren so erstellt habe. Die Funktion ist allerdings einwandfrei.
Ich möchte nun, dass sich dieser Code auf mehrere (oder auch alle) Textboxen in der UserForm bezieht. Hat da einer eine Idee wie ich das bewerkstelligen kann?
Habe nur gelesen, dass man das über den Tag oder ein Klassenmodul machen könnte. Jedoch habe ich keinen Plan wie.
Private Sub textboxvol_Change()
Application.EnableEvents = False
If TextBoxVol.Value Like "*,*" Or _
TextBoxVol.Value Like "*.*" Then
Help$ = TextBoxVol.Value
If DSep() = "." Then
TextBoxVol.Value = Replace(Help$, ".", ",")
Else
TextBoxVol.Value = Replace(Help$, ",", ".")
End If
End If
Application.EnableEvents = True
End Sub
Danke schonmal im Vorraus
Pascal
|