Austausch von Punkten und Kommas im Diagramm
26.09.2016 09:41:14
Punkten
ich verwende folgenden Code, um Punkte und Kommas bei einzelnen Sheets auszutauschen. Zum Hintergrund: Tabellen aus einer Arbeitsmappe werden als "Bild" in deutsch- und englischsprachige Präsentationen übernommen. Hierfür ist das hilfreich.
Private Sub Worksheet_Activate()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With
End Sub
Private Sub Worksheet_Deactivate()
Application.UseSystemSeparators = True
End Sub
Viele Grüße und vielen Dank im Voraus
JS
Anzeige