folgende Sub benötigt bei mir ca. 4-5 Sekunden, um Zellen mit einen bestimmten Inhalt entsprechend zu formatieren.
Ich würde den Code gern beschleunigen, indem ich Tabelle1.Range("E2:BB463") zunächst in ein Array oder Datenfeld kopiere, dort bearbeite und dann in einem Rutsch wieder in den ursprünglichen Zellbereich zurück schreibe.
In dem Array müßte der Zellinhalt, die Textfarbe und die Hintergrundfarbe bearbeitet werden.
Ich hab schon alles Mögliche probiert, komme aber irgendwie nicht weiter. Hat jemand einen Tipp für mich?
Sub Updaten()
Dim i As Integer
Dim Zelle As Range, Bereich As Range
On Error GoTo Ende
Set Bereich = Tabelle1.Range("E2:BB463")
For Each Zelle In Bereich
If Zelle.Value > "" Then
With Zelle ' Zelle mit OptionenArr(i).Option vergleichen
i = 1
Do While (.Value OptionenArr(i).Option) And (i
-------------------------------------------
OptionenArr ist wie folgt definiert:
Type OptionenType
Option As String
Textfarbe As Integer
Hintergrundfarbe As Integer
End Type
Public OptionenArr(1 To 20) As OptionenType
Viele Grüße
Mathias