Kann mir jemand helfen ein VBA zu erstellen?

Question

Guten morgen an alle Experten,

wer könnte mir helfen ein VBA zu erstellen?  Möchte wenn in die Zellen B3:D25 oder F3:H25 ein Doppelklick erfolgt Soll in Zelle Z7 die Klicks von B3:D25 addiert werden von F3:H25 in Z8 addiert werden.

Gruß Adde

Answer 1

Hi Adde,

folgender Code ins Codemodul des Tabellenblattes:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B3:D25")) Is Nothing Then
        Cancel = True
        Range("Z7") = Range("Z7") + 1
    ElseIf Not Intersect(Target, Range("F3:H24")) Is Nothing Then
        Cancel = True
        Range("Z8") = Range("Z8") + 1
    End If
End Sub

Bis später, Karin

Answer 2

Guten Morgen Karin

vielen lieben Dank für deine Antwort. Es funktioniert. Klasse.

Gruß Adde.

Answer 3

Noch einmal ich Karin,

habe es für 1 Spiel getestet ist super, aber habe fest gestellt, wenn das 2 Spiel beginnt  das er die Würfe weiter addiert wenn das Spiel beendet ist. Meine Frage. Kann man noch einen Zusatz einbringen. Wenn Zelle  y14 oder Y17 ist o dann Zellen Z7 und Z8  leer und dann kann er wieder anfangen zu Zählen.

Gruß adde

Answer 4

Hallo Karin habe es geschafft. Nochmals für deine Unterstützung. Das ist die Lösung:

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