Hi,

füge in ein allgemeines Modul folgenden Code ein und weise dem Button das Makro Umschalten zu.

Dim Toggle As Boolean
Sub Umschalten()
  
  Toggle = Not Toggle
  Application.DecimalSeparator = IIf(Toggle, ".", ",")
  Application.ThousandsSeparator = IIf(Toggle, ",", ".")
  Application.UseSystemSeparators = Not Toggle
  
End Sub

Sag Bescheid, obs dann mit dem Export funktioniert.

Gruß Mr. K.