|
Hallo
Ein anderer Ansatz. Text und Titel der Msgbox in ein Array gepackt.
Option Explicit
Sub MSG_mehrsprachig()
Dim Antwort
Dim Sprache As Integer
Dim msgText() As String
ReDim msgText(1, 1 To 3, 1 To 2)
' 1. Dimension: für verschiedene Texte in verschiedenen Textboxen
' 2. Dimension: Englisch = 1, Deutsch = 2, Russisch = 3
' 3. Dimension: Text in MsgBox = 1, Titel in MsgBox = 2
msgText(1, 1, 1) = "Text auf Englisch": msgText(1, 1, 2) = "Titel auf Englisch"
msgText(1, 2, 1) = "Text auf Deutsch": msgText(1, 2, 2) = "Titel auf Deutsch"
msgText(1, 3, 1) = "Text auf Russisch": msgText(1, 3, 2) = "Titel auf Russisch"
Sprache = Range("LanguageChoice")
Antwort = MsgBox(msgText(1, Sprache, 1), vbYesNoCancel, msgText(1, Sprache, 2))
If Antwort = vbNo Or Antwort = vbCancel Then Exit Sub
' weitere Code bei 'Ja'
MsgBox "Ja gedrückt"
End Sub
mfg, GraFri
|