dazu schrieb ich folgendes:
Dim lz, t As Integer
Dim j As Integer
t = Cells(34, 1).Row
lz = Cells(20, 1).Row
For j = lz To t
If Not Cells(j, 1).Font.ColorIndex 3 Then
Cells(j + 1, 3).Select
GoTo 2
End If
Next
2
Cells(34, 3).Value = "=SUMME(" & ActiveCell.AddressLocal & ":C33)"
-------------------------------------------------------------------
allerdings wird dann in die Zelle folgendes eingetragen:
=SUMME($C$29:C33)
was erstmal eine Fehlermeldung in der Zelle bringt und erst dann das richtige Ergebnis wenn man draufklickt.
kann man diese $ $ Zeichen nicht irgendwie von anfang an beseitigen
Gruß Basti