Suchergebnisse

Genau, der Quellcode der UF ist: Public Function SummeFett(bereich As Range) As Double Dim rngCell As Range If Not USumme = 1 Then For Each rngCell In bereich SummeFett = SummeFett + IIf(rngCell.Font.Bold, rngCell.Value, 0) Next rngCell End If End Function Kann ich denn mit der bedingten Formatierung auch das Ende dynamisch erweitern über Formula Local?

Guten Tag an Alle im FOrum, ich arbeite in eine großen Liste mit Datensätze die jeweils eine übergeordnete zusammegefasste Zeile beinhalten. Also z.B.: Gewerkenr Firma Kosten 1501 ABC GmbH 10000 1501 ABC GmbH 5000 1501 ABC GmbH 5000 Bis jetzt hab ich das mit einer eigenen Summefunktion aufsummiert die sich auf Font.Bold = true stützt. Leider ist das ziemlich anfällig im Bezug auf Verlässlichkeit, manchmal löst es nicht aus und gibt keinen Wert aus, und Rechenintensität. Selbst wenn ein Modul auf…