SummeWennFormat - Eigene Function aktualisieren
08.07.2006 16:01:11
Mike
ich habe eine kleine SummeWenn Variante geschrieben. Hierbei werden Zahlen nur dann addiert, wenn die Schriftformatierung (fett, kursiv, unterstrichen) we vom Anwender gewünscht vorliegt. Jetzt habe ich ein aktualisierungs Problem. Bei Änderungen der Werte funktioniert es eigentlich, aber nicht bei Formatänderungen. Wie kann ich sagen, dass auch dann die Formel aktualisiert weerden soll?
Hier die Funktion.
Function SummeWennFormat(Summenbereich As Range, Optional IstFett As Boolean = True, Optional IstKursiv As Boolean = False, _
Optional IstUnterstrichen As Boolean = False)
' SummeWennFormat Funktion Summiert die Zellen mit der angegebene Schriftformatierung _
als Standard immer nur FETT
' am 08.07.2006 von Mike René Kölblin geschrieben
Dim zelle As Range
SummeWennFormat = 0
For Each zelle In Summenbereich ' Durchlaufe jede Zelle im angegebenen Bereich
If Application.WorksheetFunction.IsNumber(zelle.Value2) Then ' Prüfung mit der Excel funktion ISNumber
If IstFett = zelle.Font.Bold Then
If IstKursiv = zelle.Font.Italic Then
If IstUnterstrichen And zelle.Font.Underline = xlUnderlineStyleSingle Then ' nur einfache Unterstreichung
SummeWennFormat = SummeWennFormat + zelle.Value2
ElseIf IstUnterstrichen = False And zelle.Font.Underline = xlUnderlineStyleNone Then
SummeWennFormat = SummeWennFormat + zelle.Value2
End If
End If
End If
End If
Next
End Function
Danke
Mike René