Zeilen ausblenden wenn:
19.02.2007 11:59:00
Andre´
ich habe folgendes Makro, dass Zeilen im Bereich A1:A100 ausblendet wenn der Zellwert kleiner als 4 ist.
Sub ausblenden()
Dim i As Byte
For i = 1 To 100
If Cells(i, 1) < "4" Then
Rows(i).Hidden = True
End If
Next i
End Sub
Da ich nun den Bereich von A1:A65563 durchsuchen möchte kommt Laufzeitfehler '6' Überlauf. Hier das Makro:
Sub ausblenden()
Dim i As Byte
For i = 1 To 65536
If Cells(i, 1) < "4" Then
Rows(i).Hidden = True
End If
Next i
End Sub
Hat jemand eine Idee, wie der Code dafür lautet.
Danke im Voraus
MFG Andre
Anzeige