Kann bitte jemand helfen, einen Progressbar in meine Userform einzufügen? Ich schaffe es nicht... Er sollte bei folgender Schlaufe (51 Sheets) integriert werden:
Sub Makro2()
On Error GoTo CleanUp
With Application
IngCalcSave = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 51
With Sheets(i)
Dim z As Integer
If CheckBox1.Value = True Then
For z = 6 To 203
If Worksheets(i).Cells(z, "BF") = "0" Then
Worksheets(i).Rows(z).EntireRow.Hidden = True
Else
Worksheets(i).Rows(z).EntireRow.Hidden = False
End If
Next z
Else: Worksheets(i).Rows.Hidden = False
End If
End With
Next i
CleanUp:
.Calculation = IngCalcSave
.ScreenUpdating = True
End With
End Sub
Im Moment wird per Button in einer UserForm das obenstehende Makro, sowie eine zweite Userform mit dem Progressbar aufgerufen. Weiter bin ich leider nicht gekommen.Vielen Dank!