Hilfe bei Fehler in einem VBA

Question

Hallo und Guten Tag,

Möchte das wenn nach der Ansage in Zelle A2 die 1 erscheint das die Zellen Z7 und Z8 gelöscht werden. Könnte jemand von den Experten einmal auf das VBA schauen und mir eventuell sagen was ich falsch gemacht habe oder den Code so ändern das er funktioniert.

Sub GameOn()
    ActiveSheet.Unprotect
    
    ' Game on - Ansage starten
    lngAnsage = 998
    ' Ansage starten
    Start_Ansage (lngAnsage)
    
    ' Überprüfen, ob Y7 und Y14 auf null stehen und A1 eine 1 enthält
    If Range("Y13").Value = 0 And Range("Y14").Value = 0 And Range("A2").Value = 1 Then
        ' Zellen Z7 und Z8 löschen
        Range("Z7:Z8").ClearContents
        
    End If
    
    ' Ansage zurücksetzen
    ' Hier kannst du den Code hinzufügen, um die Ansage zurückzusetzen, falls nötig
    
    ' Makro wieder verlassen
End Sub

Gruß Adde

Answer 1

Habe Lösung erstellt.

Habe VBA so geändert und es Klappt.

Sub GameOn()
    ActiveSheet.Unprotect
    
    ' Game on - Ansage starten
    lngAnsage = 998
    ' Ansage starten
    Start_Ansage (lngAnsage)
    
    ' Überprüfen, ob Y7 und Y14 auf null stehen und A1 eine 1 enthält
    If Range("A2").Value = A2 And Range("I2").Value = I2 Then
        ' Zellen Z7 und Z8 löschen
        Range("Z7:Z8").ClearContents
        
    End If
    
    ' Ansage zurücksetzen
    ' Hier kannst du den Code hinzufügen, um die Ansage zurückzusetzen, falls nötig
    
    ' Makro wieder verlassen
End Sub

Gruß Adde

*_{Admininfo: Behandle dasselbe Problem bitte nicht in zwei verschiedenen Anfragen}