AW: Summierung ohne grau formatierte Schrift
24.03.2005 10:07:32
Philipp
Hallo,
ich hab dir mal ein kleines Makro geschrieben, mit dem es auch funktioniert:
Sub sum()
startzeile = 9
endzeile = 22
summe = 0
For i = startzeile To endzeile
If Range("C" & i).Font.ColorIndex <> 15 Then
summe = summe + Range("C" & i).Value
End If
Next i
Range("C" & endzeile + 1).Value = summe
End Sub
Ich hoffe es klappt bei Dir!
Rückmeldung nicht vergessen...
Bis dann
Philipp