In einem Bereich von mehreren Zeilen und Spalten habe ich Zahlen, wovon einige unterstrichen sein können. Ich möchte in einer Zelle die Anzahl der unterstrichenen Zahlen im Bereich ausgeben.
Für Eure Hilfe danke ich sehr.
Freundliche Grüsse
Beat
Option Explicit
Function My_UnderlineNone(Bereich As Range)
Dim Rng As Range, x&
Application.Volatile
...
oder du kombinierst die UDF in der Zellformel mit einer automatisch volatilen Funktion (naürlich ohne den Wert zu verändern):
=My_UnderlineNone(A1:A10)+0*Zufallszahl()
Volatile Funktionen in grosser Anzahl wirken sich negativ auf die Performance aus, weil sie bei jeder Änderung in Excel neu berechnet werden und damit sehr oft, auch wenn es nicht notwendig wäre.
If Rng.Font.Underline xlUnderlineStyleNone And Rng "" Then
Gruß Matthias
B | C | D | E | F | |
3 | 94 | 48 | 2 | 18 | |
4 | 69 | 24 | 35 | 28 | |
5 | 76 | 33 | 89 | 11 | |
6 | 68 | 22 | 60 | 41 | |
7 | 93 | 95 | 42 | 32 | |
8 | 83 | 72 | 31 | 3 | |
9 | 28 | 18 | 35 | 62 | |
10 | 19 | 18 | 39 | 86 | |
11 | 85 | 60 | 90 | 46 | |
12 | |||||
13 | |||||
14 | 9 | ||||
15 | zum Aktulisieren klicke auf B14 | ||||
16 | |||||
17 | Control-Claculate | ||||
18 | 20.11.2014 15:38:00 |
Formeln der Tabelle | ||||||
|