|
Hallo, ich arbeite gerade an einem relativ komplexen Excelsheet, welches unteranderem mehrsprachig ist, die Implementierung für die Steuerelemente und die Überschriften usw. ist mir bereits gelungen, jetzt bin ich bei der letzten Hürde angekommen: Mehrsprachige MsgBox(en).
Mein Code (zur Sprachanpassung der Boxen) sieht bis Dato wie folgt aus:
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim Title1 As String
Dim Title2 As String
Dim Title3 As String
Text1 = "You are updating your VaR-results. The data is imported from the table VaR-Calculation, please check if the configuration are consistent to the already recorded data! Do you want to continue?"
Text2 = "Sie akutalisieren Ihre VaR-Ergebnisse. Die Daten werden aus dem Tabellenblattt Var-Calculation importiert, bitten prüfen Sie ob die Einstellungen mit den bereits aufgezeichneten Daten übereinstimmen! Wollen Sie vorfahren?"
Text3 = "Platzhalter"
Title1 = "Caution!"
Title2 = "Achtung!"
Title3 = "Platzhalter"
If Range("LanguageChoice") = 1 Then
answer1 = MsgBox(Text1, vbYesNoCancel, Title1)
ElseIf Range("LanguageChoice") = 2 Then
answer2 = MsgBox(Text2, vbYesNoCancel, Title2)
Else
answer3 = MsgBox(Text3, vbYesNoCancel, Title3)
End If
If answer1 = vbNo Or answer1 = vbCancel Then
Exit Sub
ElseIf answer2 = vbNo Or answer2 = vbCancel Then
Exit Sub
Else
answer3 = vbNo Or answer3 = vbCancel
Exit Sub
End If
Zum Verständnis: Die Range("LanguageChoice") ist eine benannte Zelle, welche die Werte 1-3 (1= Englisch, 2= Deutsch und 3 = Russisch) annehmen kann.
Zum Problem: Die Sprachanpassung funktioniert und die MsgBox nimmt die unterschiedlichen Übersetzungen an, allerdings wird das sich an die MsgBox anschließende Makro nicht ausgeführt, egal ob der User aus "Ja, Nein oder Abbrechen" drückt.
Ich beschäftige mich seit 2-3 Wochen mit VBA bin also quasi noch ein Newbie. :)
Vielen Dank für die Hilfe im Vorraus.
|