Hallo,

warum benutzt du dafür nicht das Doppelklick-Event des Tabellenblattes?

Code gehört ins Codemodul des Tabellenblattes auf dem er sich auswriken soll.

-Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren

Bei Doppelklick in Spalte A bis F wird die Schriftfarbe der doppelt angeklickten Zelle gewechselt wenn:

-die doppelt angeklickte Zelle nicht leer ist und wenn eine Zahl in der Zelle steht

-wenn in der gleichen Zeile in Spalte G ein x gesetzt ist

Bei Doppelklick in Spalte H wird die Schriftfarbe der doppelt angeklickten Zelle und der zwei fogenden Zellen gewechselt wenn:

-die dippelt angeklickte Zelle nicht leer ist und wenn eine Zahl in der Zelle steht

-wenn in der gleichen Zeile in Spalte G ein x gesetzt ist

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Unprotect Password:=""
Cancel = True
If Target.Column <= 6 Then
    If Not IsEmpty(Target.Value) Then
        If IsNumeric(Target.Value) Then
            If UCase(Cells(Target.Row, 7).Value) = "X" Then
                If Target.Font.ColorIndex <> 16 Then
                    Target.Font.ColorIndex = 16
                ElseIf Target.Font.ColorIndex = 16 Then
                    Target.Font.ColorIndex = xlAutomatic
                End If
            Else
                MsgBox "Bitte die Zeile markieren."
            End If
        End If
    End If
ElseIf Target.Column = 8 Then
    If Not IsEmpty(Target.Value) Then
        If IsNumeric(Target.Value) Then
            If UCase(Cells(Target.Row, 7).Value) = "X" Then
                If Target.Font.ColorIndex <> 16 Then
                    Target.Resize(1, 3).Font.ColorIndex = 16
                ElseIf Target.Font.ColorIndex = 16 Then
                    Target.Resize(1, 3).Font.ColorIndex = xlAutomatic
                End If
            Else
                MsgBox "Bitte die Zeile markieren."
            End If
        End If
    End If
End If
Protect Password:=""
End Sub

Gruß Werner