Thema Datum  Von Nutzer Rating
Antwort
28.04.2017 01:19:42 Arni
NotSolved
Blau Mehrsprachige MsgBox
 28.04.2017 01:50:44 Gast42113
NotSolved
28.04.2017 01:52:23 Gast42113
NotSolved
28.04.2017 06:59:08 GraFri
NotSolved
29.04.2017 12:18:43 Arni
NotSolved
29.04.2017 15:01:11 Arni
NotSolved
30.04.2017 08:33:12 GraFri
NotSolved
30.04.2017 18:39:59 Arni
NotSolved

Ansicht des Beitrags:
Von:
Gast42113		 Datum:
28.04.2017 01:50:44		 Views:
971		 Rating:
     
Antwort:
  Ja
Thema:
Mehrsprachige MsgBox

Meine erste Weiterentwicklung sieht 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 = True Then GoTo ENG
   ElseIf answer2 = True Then GoTo GER
   Else
   GoTo RUS
   End If
   
ENG:
   If answer1 = vbNo Or answer1 = vbCancel Then
   Exit Sub Else GoTo continue
   End If
   
GER:
   If answer2 = vbNo Or answer2 = vbCancel Then
   Exit Sub Else GoTo continue
   End If
   
RUS:
   If answer2 = vbNo Or answer2 = vbCancel Then
   Exit Sub Else GoTo continue
   End If

continue:
Hier geht das Makro weiter.

Aber diese Lösung hat zwei Fehler: Sie zeigt an, dass es eine If-Funktion ohne End-if gibt und er kann die "Else GoTo continue" Bestandteile nicht kompilieren. 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.04.2017 01:19:42 Arni
NotSolved
Blau Mehrsprachige MsgBox
 28.04.2017 01:50:44 Gast42113
NotSolved
28.04.2017 01:52:23 Gast42113
NotSolved
28.04.2017 06:59:08 GraFri
NotSolved
29.04.2017 12:18:43 Arni
NotSolved
29.04.2017 15:01:11 Arni
NotSolved
30.04.2017 08:33:12 GraFri
NotSolved
30.04.2017 18:39:59 Arni
NotSolved