Da meine Addition von Zellen mit Hintergrund (durch Bedingte Formartierung) sehr aufwendig sein wird, möchte ich jetzt nur noch die Anzahl der Zellen mit FETT-Schrift ermitteln.
Vielen Dank im voraus"
MFG
Walter
Da meine Addition von Zellen mit Hintergrund (durch Bedingte Formartierung) sehr aufwendig sein wird, möchte ich jetzt nur noch die Anzahl der Zellen mit FETT-Schrift ermitteln.
Vielen Dank im voraus"
MFG
Walter
Diese Funktion im VBA-Editor eingeben und im Excel-Sheet wie die normale Summe() aufrufen. Achtung: Wenn Du einen Wert änderst, wird die Summe auch antsprechend der Formatierung neu berechnet. Wenn Du aber nur die Formatierung änderst, dann wird NICHT automatisch neu berechnet. Denn die Zahelnwerte ändern sich ja nicht.
Gruß Harald
vielen Dank für deine Hilfe!
Ich habe nun versucht deine Formel abzuändern um die Anzahl der Zellen zu ermitteln. Leider stimmt das ergebnis nicht. Kannst Du weiterhelfen?
Gruß
Walter
Function Summe_Fett(Quelle As Range) As Integer
Dim zelle As Range
Dim tmp As Integer
tmp = 0
For Each zelle In Quelle
If zelle.Font.Bold Then
tmp = tmp + 1
End If
Next
Summe_Fett = tmp
End Function
Gruß
Walter
Function Summe_Fett(Quelle As Range) As Double
Dim zelle As Range
Dim tmp As Double
tmp = 0
For Each zelle In Quelle
If zelle.Font.Bold And zelle.Value > 0 Then
tmp = tmp + 1
End If
Next
Summe_Fett = tmp
End Function