Dezimalzeichen Komma Punkt Tabellenblattabhängig

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

über die Optionen/Ländereinstellungen wirkt es sich eben nicht auf den ganzen PC aus, sondern nur auf Excel, insgesamt auf alle Tabellenblätter bis man die Änderung wieder rückgängig macht.
Ich habe ein Makro für die Umstellung aufzeichnen lassen und dieses an die Open-Funktion und an die Close Funktion gehängt. Damit wird beim Öffnen des Formulars die Einstellung auf die englische Schreibweise geändert und beim Schließen wieder auf die deutsche Schreibweise.
Welches Problem ich damit nicht gelöst habe: In dem Moment sind alle geöffneten Exceltabellen mit Dezimalpunkt!! Ich möchte die Einstellung aber nur für die bestimmte Datei alleine.
Das Problem ist für mich noch nicht gelöst, weiß einer eine Hilfeß
Gruß, Bastian

Hallo Bastian,
da hast Du mich offenbar falsch verstanden :
Die Ländereinstellungen der Systemsteuerung beziehen sich immer auf den gesamten PC und wirkt sich in den Programmen (z.B. Excel, FiBu etc.) aus, die sich dieser Einstellungen bedienen.
In Excel selbst kann man - wie Du bereits weißt - per Option die Einstellungen der Systemsteuerung ignorieren und eigene Dezimal-/Tausendertrennzeichen verwenden. Aber auch DIESE Einstellung wirkt sich auf alle Excelmappen dieses PCs aus, da es sich um eine (für den PC) globale Einstellung handelt.
Und glaube mir bitte : Es ist NICHT möglich, für ein einzelnes Tabellenblatt diese Formatierung zu ändern !
Mit einem Makro (das Du bereits erstellt hast), ist es natürlich möglich, diese Option nur für eine einzelne Datei zu verändern - entsprechend könnte man beim Aktivieren/Deaktivieren eines Tabellenblattes diese Option ebenfalls verändern / wieder zurück stellen.
Kopiere dazu diesen Code in das Klassenmodul des Tabellenblattes, das die von den Ländereinstellungen abweichende Dezimaldarstellung erhalten soll :

Private Sub Worksheet_Activate()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With
End Sub
Private Sub Worksheet_Deactivate()
Application.UseSystemSeparators = True
End Sub

Gruß, NoNet

gegen 2:1

Beliebteste Forumthreads (12 Monate)

Dezimalzeichen Komma Punkt Tabellenblattabhängig

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

109 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dezimalzeichen Komma Punkt Tabellenblattabhängig

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

109 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread