Private Sub cmd_Simultanität_aus_Click().


ActiveSheet.Unprotect Password:=""

Dim rngAuswahl As Range
Dim c As Object

On Error GoTo LeaveSub

Set rngAuswahl = Application.InputBox("Bitte die Zelle markieren, dessen Simultanität geändert werden soll.", Type:=8)
    
    If rngAuswahl.Rows.Count > 1 Then
        MsgBox "Bitte wählen Sie nur ein Equipment / eine Anlage aus.", vbCritical
        Exit Sub
    End If

    For Each c In rngAuswahl.Cells
        If IsNumeric(c.Value) And Not IsEmpty(c.Value) Then
            If Cells(c.Row, 7).Value <> "x" Then
                MsgBox "Bitte wählen Sie erst die gesamte Zeile simultan.", vbCritical
                Exit Sub
            End If
            If c.Font.ColorIndex <> 16 Then
                ActiveSheet.Unprotect Password:=""
                c.Font.ColorIndex = 16
                Range("A6").Value = "Gebäude"
                GoTo 1
            End If
            If c.Font.ColorIndex = 16 Then
                ActiveSheet.Unprotect Password:=""
                c.Font.ColorIndex = xlAutomatic
                Range("A6").Value = "Gebäude"
            End If
        End If
1:
    Next c

End Sub

Jetzt möchte ich folgendes realisieren: Wenn der Benutzer nun zum Beispiel in Zelle "H8" klickt und damit die Schrift in der Zelle ändert, sollen automatisch Zelle "I8" und "J8" auch in entsprechende Schrift Farbe geändert werden. Also wenn "H8" von schwarz auf grau gändert wird, soll automatisch "I8" und "J8" von grau zu schwarz geändert werden. Wenn "H9" angewählt und verändert wird, dann sollen "I9" und "J9" automatisch geändert werden. Und so weiter.

Könntet ihr mir da helfen?

Vielen Dank :)