Problema de localização do Excel VBA - WIN 8.1 Enterprise, Excel 2007

Question

Eu tenho um problema com o arquivo usando macros VBA criadas na versão GER do Excel. Esta macro está testando o item da tabela dinâmica para "Alle", mas quando alguém abre o arquivo na versão EN, o item da tabela dinâmica obviamente não é "Alle", mas sim "All", portanto a macro não funciona. O mesmo problema é com "leer" - "blank" ou "# N / A" - "#NV" etc. Alguém enfrentou este problema e existe alguma solução desenvolvida? É possível bloquear a configuração de idioma da pasta de trabalho para que o "Alle" não seja alterado para "Todos"? Ou alguma outra solução de trabalho?

    

Answer 1

Dim loc As Long
loc = Application.LanguageSettings.LanguageID(msoLanguageIDUI)

If loc = 1033 Then
    'english code here
ElseIf loc = 1031 Then
    'german code here
End If

Aqui é o link do MSDN para IDs de localidade.