Excel-Optionen per Makro umstellen

25/08/2010 - 18:59 von Frank Vellner | Report spam
Liebe NG,

ich möchte mir zwei Buttons auf die Multifunktionsleiste setzen. Der
eine soll in den Excel-Optionen auf "Trennzeichen von Betriebssystem
übernehmen" einstellen.
Der andere soll die die Box "entchecken" und den Dezimaltrenner Punkt
einstellen. Mein bisheriger Versuch dazu sieht so aus:

Sub Dezimaltrenner_Komma()
Application.UseSystemSeparators = True
End Sub

Sub Dezimaltrenner_Punkt()
Application.UseSystemSeparators = False
Application.DecimalSeparator = "."
End Sub

Die Sache funktioniert ... leider nur meistens. Irgendwie finde ich
nicht zuverlàssig heraus, in welcher Konstellation es immer
funktioniert und wann nicht.

Die Könner sehen es bestimmt auf einen Blick?

Viele Grüße
Frank
 

Lesen sie die antworten

#1 Andreas Killer
25/08/2010 - 19:45 | Warnen spam
Am 25.08.2010 18:59, schrieb Frank Vellner:

Die Sache funktioniert ... leider nur meistens. Irgendwie finde ich nicht zuverlàssig heraus, in welcher Konstellation
es immer funktioniert und wann nicht.


Ich vermute mal das es am 1000nder hàngt. Probier mal das Teil.

Andreas.

Sub ToggleKommaPunkt()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = "'"
.UseSystemSeparators = Not .UseSystemSeparators
End With
End Sub

Ähnliche fragen