Funktionen Progressbar
RainerK
möchte vor dem Ausführen dieses Codes eine Text in die UserForm mit "Label3" einfügen.
Bei der Ausführung erscheint dieser aber erst kurz nach der hälfte der Zeit, welche für die Ausführung benötigt wird.
Dim wks As Worksheet
Dim i As Integer
Set wks = ThisWorkbook.Worksheets("Ansicht")
With wks
For i = 23 To 550
Me.Label3.Visible = True
Me.ProgressBar1.Visible = True
Me.ProgressBar1.Max = 550
Me.ProgressBar1.Min = 0
If .Cells(i, 4).Value = "x" Then
.Rows(i).Hidden = False
Me.ProgressBar1 = i
Application.Wait Now + TimeSerial(0, 0, 1)
Else
.Rows(i).Hidden = True
Me.ProgressBar1 = i
End If
Next i
End With
Habe gerade erst angefangen, die ProgressBar einzusetzen und hab da leider keinen Plan.Gruß Rainer