title image


Smiley Re: Macro Filter für Zeilen mit farbigen Einträgen in Spalte A
hiho



gerade bei 60000 Zeilen würde ich keine VBA Lösung nehmen



habe gestern noch einiges versucht nur mit dem ergebnis das mir excel regelmäßig abgestürzt ist

den das aus und einblenden mit hidden bei dieser zeilenanzahl ...

da liegt das system flach :-(



natürlich würde ein Code der alle zeilen einzeln abfragt funzen

nur dauert das makro za 5 min.



so in der Art

nur gefällt mir das nicht

Sub rot_anzeigen()

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

Dim LastRow As Long

LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = LastRow To 1 Step -1

If Cells(i, 1).Font.ColorIndex 3 Then

Rows(i).Hidden = True

End If

Next

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub



hier nochmal kopierfähig



Sub rot_anzeigen()

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

Dim LastRow As Long

LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = LastRow To 1 Step -1

If Cells(i, 1).Font.ColorIndex 3 Then

Rows(i).Hidden = True

End If

Next

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub








Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: