Ich hätte noch einen Vorschlag, der ggf. bei einer großen Menge an Daten die Laufzeit verbessern sollte:
Wenn du die Schriftart einer Zelle mit hilfe von "font.name" ausliest bekommst du bei "gemischten" Schriftarten als Rückgabewert NULL.
Das schöne dabei ist, das das ganze auch mit Range funktioniert.
Bspw.:
dim istSymbol as Variant
istSymbol = Range("A1:A10").Font.name liefert dir bei gemischten Schriftarten NULL, bei der gleichen Schriftart in allen Zeilen die entsprechende Schriftart.
Nun könnte man bei einer großen Menge an Datensätzen einen entsprechenden Suchalgorithmus abwandeln, je nach zu erwartender Häufigkeit zB:
Zuerst Spalten A - D durchsuchen -> bei istSymbol = NULL jede Spalte einzeln
Bei Spalte = NULL di eSpalte halbieren etc. bis man ein Vorkommen gefunden hat.
je niedriger die Vorkommen sind, desto schneller ist der Algorithmus, sind viele vorkommen zu erwarten empfiehlt sich eine andere Vorgehensweise, z.B. jede Zelle einzeln zu Prüfen
Hoffe das hilft,
gruß
Luke
|