Hi ich muss hier nochmal ne Formel anzeigen die ich hier durch Hilfe erstellet habe, allerdings fehlt mir trotzdem noch was kleines. Der code sieht folgend aus.
__________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fertig
If Not Intersect(Target, Range("g2:N1000")) Is Nothing Then
Set r = Range(Cells(Target.Row, 1), Cells(Target.Row, 14))
If LCase(Target) = "x" Then
Select Case Target.Column
Case 7 '=G
r.Interior.ColorIndex = 6
Case 8 '=H
r.Interior.ColorIndex = 38
Case 9 '=I
r.Interior.ColorIndex = 12
Case 10 '=J
r.Interior.ColorIndex = 28
Case 11 '=K
r.Interior.ColorIndex = 40
Case 12 '=L
r.Interior.ColorIndex = 3
Case 13 '=M
r.Interior.ColorIndex = 15
Case 14 '=N
r.Interior.ColorIndex = 32
Case Else
'noch zu programmieren
End Select
End If
End If
fertig:
End Sub
__________________________________________________________________
Also wenn ich das x Bei Case 7 EIngebe wird alles von 1 - 14 Gelb. Allerdings soll alles wieder rückgängig gemacht werden wenn ich das x wieder lösche. das heisst bei X gelb kein X wieder neutral weiss und das für alle spalten.
Wie mach ich das? was muss ich noch da einfügen?
|