title image


Smiley Optimierung der Schleifen - einfärben von schrift und hintergrund
hallo,



ich habe folgenden abschnitt



For k = 2 To row_index

'MsgBox (Form1.color1.ForeColor)

For p = 0 To UBound(Form1.List1.List)

If Cells(k, 3) = CStr(Form1.List1.List(p208)) Then

For a = 1 To column_index

Cells(k, a).Font.ColorIndex = Form1.color1.ForeColor

Cells(k, a).Interior.ColorIndex = Form1.color1.Tag

'MsgBox (Form1.color1.Tag)

Next a

End If

Next p

Next k



leider ist diese vorgehensweise sehr langsam (xls-sheet mit zig tausenden zeilen)

(und das ganze auch für eine zweite und dritte liste)



weiß jemand wie man das optimieren kann?

oder ist das einfach so langsam?



Gruß



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: