Wie kann ich mein VBA so ändern, dass erst die Erste Ansage stattfindet dann die zweite

Question

Hallo und einen schönen Tag wünsche ich euch.

nach langer Zeit habe ich wieder einmal eine Frage und hoffe das mir jemand helfen kann. 

Folgendes: Mein VBA mit Überschrift. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) und im unteren Teil, um diesen Teil geht es, steht: Start_Ansage (lngWurf)
    If Range("J15").Value = 210 Then
        Start_Ansage 9991 ' Checkout; 9991 = Game over
        End If
    If Range("RF215").Value = 210 Then
        Start_Ansage 301  ' Zusätzliche Ansage
    End If

Es erfolgt eine Ansage aber leider nur von Start_Ansage 301  ' Zusätzliche Ansage sollte aber erst den 1ten Teil Ansagen dann den den ich erwähnt hatte. Vielleicht hat jemand eine Idee. 

Gruß Adde

Answer 1

Hi Adde,

ich weiß nicht, ob ich dein Anliegen richtig verstanden habe - versuche es mal so:

    If Range("J15").Value = 210 Then
        Start_Ansage 9991 ' Checkout; 9991 = Game over
        If Range("RF215").Value = 210 Then
            Start_Ansage 301  ' Zusätzliche Ansage
        End If
    End If

Nur wenn die Bedingungen in J15 UND RF215 erfüllt sind wird sowohl die erste als auch die zweite Ansage ausgegeben.

Bis später, Karin

Answer 2

Guten Morgen Karin,

Danke es klappt.

Gruß Adde