Makro mit indirektem Zellbezug
24.11.2017 11:42:15
Marcel
ich möchte einen Personalplan (viele eingefärbte Zellen) auswerten.
Dazu habe mit VBA eine Funktion gefunden, die mir die Zellfarbe vergleicht und eine Variable bei Übereinstimmung hochzählt und ausgibt.
Allerdings macht die Verwendung der Funktion die Tabelle seeehr langsam.
Hat jemand eine Idee, wie man die Sache beschleunigen könnte?
Erster Impuls war die Verwendung von "Application.Calculation = xlCalculationManual", aber das machts leider nicht besser.
Zweiter Ansatz war, nur Zellen mit der Funktion auf ihre Farbe zu überprüfen, die eine bestimmte Bedingung erfüllen.
Ich habe die zu prüfenden Zell-adresse in der R1C1 Schreibweise vorliegen. z.B. "Z24S".
Wie bekomme ich es hin, dass mein Makro vom Eingabeort meiner Funktion 24 Zeilen nach unten geht, und erst dort die Zellfarbe auswertet?
Vielen lieben Dank!
Public Function HFarbeZählen(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
'Application.Volatile
Application.Calculation = xlCalculationManual
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
HFarbeZählen = HFarbeZählen + 1
End If
Next Zelle
End Function