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
|