Sprachen Management (Language Handling)

[thowe]

Moin, euch Allen

Aus einer Notwendigkeit aus einem Projekt heraus und in Erinnerung das heb bereits schon einmal eine "Language Handling" hier in einem Thread gelöst hat, möchte ich euch - als Anstoß - kurze Snippets zum Thema Sprachen Management / Language Handling vorstellen.

WICHTIG!

Der Aufruf mit VBA Application.LanguageSettings.LanguageID(msoLanguageIDUI) gibt die eingestellte Sprache (als Long (Dec)) der Office Applikation zurück.
Nicht berücksichtigt wird die Windows System Display Language, die für viele "Anzeigen" wie auch beispielsweise MsgBopx() verwendet wird.

Ergänzend habe ich euch auch eine Liste der Windows Language Code Identifier (LCID) hochgeladen.

MSLanguage Code Identifier.xlsx

(17.08 KiB) Noch nie heruntergeladen

Hilfreiche Links können sein:
https://bettersolutions.com/vba/macros/ ... nguage.htm
https://learn.microsoft.com/en-us/offic ... ernational

Code: Alles auswählen

Function SYSTEM_GetLanguageApplication() As String

    Dim lngLanguageCode As Long
    lngLanguageCode = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    
    Select Case lngLanguageCode
        Case 1031, 3079, 5127, 4103
            SYSTEM_GetLanguageApplication = "Deutsch: de-DE"
    End Select
    
End Function

Function SYSTEM_GetLanguageSystem()
    
    Dim lngLanguageCode As Long
    
    lngLanguageCode = Application.International(XlApplicationInternational.xlCountryCode)
    Select Case lngLanguageCode
        Case 1:
            SYSTEM_GetLanguageSystem = "English"
        Case 33:
            SYSTEM_GetLanguageSystem = "Francaise"
        Case 49:
            SYSTEM_GetLanguageSystem = "Deutsch"
    End Select

End Function


Function SYSTEM_GetWindowsDisplayLanguage()
    
    Dim lngLanguageCode As Long
    
    lngLanguageCode = GetUserDefaultUILanguage()
    
    Select Case lngLanguageCode
    
        Case 1031, 3079, 5127, 4103
            SYSTEM_GetWindowsDisplayLanguage = "Deutsch: de-DE"
            
    End Select
End Function

Viel Spaß beim weiter VBAsteln, damit

LG thowe

[d'r Bastler]

Moin thowe,

wie kann man in Dein Konstrukt Wörter, die nicht als Systemvariable existieren integrieren?

lg

[thowe]

Moin heb....,

wie kann man in Dein Konstrukt Wörter, die nicht als Systemvariable existieren integrieren

... -> was meinst du damit - beispielhaft - genau?

lg thowe

[d'r Bastler]

Moin,
Ich meine individuelle Benennungen z.B. in Tabellen (Spaltenüberschriften) oder Captions von USF-Controls. %USERNAME oder %PARENTPATH sind System-immanent.
lg

[thowe]

Aah, okay heb,

ja daran habe ich gedacht.
Es gibt mehrere Möglichkeiten.
Ich möchte als erster Vorschlag die Sprachenhandhabung wie folgt designen:

eine Klasse clsLanguage
eine Dictionary p_dicLanguage

Unter Dictionary, mehrere Werte zu einem Schlüssel habe ich dargestellt, wie man einem Schlüssel mehrere Werte zuweisen kann.

Damit könnte man zum Beispiel - jetzt 'mal ungeprüft - einem Zelleninhalt eine Übersetzung in einer oder - gleichzeitig - mehrerere Sprachen zuordnen. In etwa:

Code: Alles auswählen

	With ActiveSheet
		.Cells(Header, 1).Value = GetTranslation("Espagna")
	End with

und GetTranslation könnte wie folgt aussehen:

Code: Alles auswählen

Function GetTranslation(strKey As String)

   'check if not Dictionary is NULL (Nothing)
    If p_dicLanguage Is Nothing Then Call SetTranslation
    If p_dicLanguage.Exists(strKey) Then GetTranslation = p_dicLanguage(strKey)
    
End Function

-> wie oben geschrieben, ungeprüft, schnell aus der Hüfte geschossen...

Habe ich deine Frage richtig verstanden und wie denkst du über diese vorgeschlagene Umsetzung?
Gerne können wir gemeinsam VBAsteln.....

LG

[d'r Bastler]

Danke thowe,
Du hast ...
lass mich mit Deinem Code erst einmal ein bisschen spielen
lg

[thowe]

Hallo,

ich hab ehier in #1 unter anderem folgende Function zur Verfügung gestellt.
Function SYSTEM_GetWindowsDisplayLanguage()

Damit das läuft muss folgendes in den Modulkopf (also ganz oben ins Modul), gleich nach Option Explicit

Code: Alles auswählen

If #VBA7 then
    Private Declare PtrSafe Function GetUserDefaultUILanguage Lib "kernel32.dll" () As Long
Else
    Private Declare Function GetUserDefaultUILanguage Lib "kernel32.dll" () As Long
End if

Das hatte ich bei copy & paste übersehen

lg thowe