Schleife läuft nicht ?
24.11.2004 08:40:12
Peter
brauch Hilfe.
Mit diesem Code möchte ich alle Gelb makierten Zeilen Löschen.
Private Sub gelb_Click()
LabelProgress.Width = 0
Dim Fertig As Single
Dim z As Long
Dim zeile As Long
zeile = Zeilenanzahl(1, 1)
For z = zeile To 1 Step -1
If Cells(z, 1).Interior.ColorIndex = 6 Then 'alle gelben Spaltenlöschen
Rows(z).Delete
End If
Fertig = z / (zeile * 1)
With farbzellen
Me.Caption = format(Fertig, "0%")
Me.LabelProgress.Width = Fertig * (.FrameProgress.Width - 1)
DoEvents
End With
Next z
Unload farbzellen
End Sub
Aber es bleiben immer Gelb makierte Zeilen im Tabellenblatt stehen.
Warum ?
Gruß Peter