Ist Summe bei Interior.ColorIndex = 37
Heinz
Habe in unteren Code wenn ich in Spalte A ein Datum eingebe,wird mir eine Spalte vorher die Spalte A bis G eingefärbt.
Nun möchte ich,wenn die Zelle eingefärbt wird, das in D die Summe bis zur oberen eingefärbten Spalte die Formel =Summe() eingefügt wird.
Die obere eingefärbte Spalte D darf nicht mehr mitgerechnet werden.
Zb. D 50 = Interior.ColorIndex = 37
D 60 = Interior.ColorIndex = 37
Jetzt würde in D60 die Formel =SUMME(D51:D59) reingehören.
Ich hoffe es ist so halbwegs beschrieben.
Wäre Super wenn mir dazu jemand helfen könnte.
Gruß
Heinz
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
If IsDate(Target) Then
Range(Target.Offset(-1, 0), Target.Offset(-1, 6)).Interior.ColorIndex = 37
Else
On Error Resume Next ' Bei Fehler weiter machen
Range(Target.Offset(-1, 0), Target.Offset(-1, 6)).Interior.ColorIndex = xlNone
End If
On Error Resume Next
If Target.Column = 1 And Target "" Then 'nur Spalte A und Zelle nicht leer
Target = DateSerial(Cells(1, 16), Cells(1, 15), Target.Value) 'O1=Monat P1=Jahr
End If
End If
End Sub