VBA-Problem!
09.05.2006 13:48:14
Thomas
brauche eure Hilfe!
Habe folgenden VBA Code:
Function FetteZahl(Bereich As Range)
Application.Volatile ' damit bei Änderung ausgeführt wird
Dim Zelle
FetteZahl = 0
For Each Zelle In Bereich
If Val(Zelle) > 0 And Zelle.Font.Bold = True Then
FetteZahl = FetteZahl + 1
End If
Next
End Function
Er zählt mir alle Zahlen die "fett" formatiert sind,
nun mein Problem, wenn in der Spalte Buchstaben vorkommen
bleibt das Modul hänfen.
Wie muss ich den Code veränder, dass er über Buchstaben
springt und weiter die "fetten" Zahlen zählt?
Danke, für eure Hilfe!
Gruss
Thomas