Ich habe in einer Tabelle diverse Zellen *fett* formatiert.
Gibt es eine Möglichkeit, diese zu zählen.
COUNTIF kann es m.E. nicht.
Danke,
Chris
Ich habe in einer Tabelle diverse Zellen *fett* formatiert.
Gibt es eine Möglichkeit, diese zu zählen.
COUNTIF kann es m.E. nicht.
Danke,
Chris
Option Explicit
Sub fett()
Dim c As Range, z As Long
For Each c In ActiveSheet.UsedRange.Cells
If c.Font.Bold = True Then z = z + 1
Next
MsgBox z & " Zellen fett"
End Sub
Mega schnelle Antwort.
Funktioniert auch super!
Allerdings möchte ich die Range vorher definieren und dann das Ergebnis in einer Zelle ausgeben...
Noch so ne gute Idee?
Ich möchte die Anzahl der *fetten* Zellen einer Spalte (zB von A3 - A69) addieren und in A70 ausgeben.
Möglich?
Summiert die Zahlen mit bestimmten Zellhintergrund
Function FarbsummeH(Bereich As Range, Farbe As Integer)
' Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeH = FarbsummeH + Zelle
End If
Next
End Function
von Hajo
gruss thomas
ich habe jetzt nicht alle Beiträge zu diesem Problem gelesen, sondern nur den letzten und dafür folgende Lösung.
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel