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