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