Fortschrittsanzeige
10.04.2018 08:49:21
xbit
ich möchte eine Fortschrittsanzeite für ein Makro generieren. In den Makro ist ein csv Datenimport hiers sind bis zu 120000 Zeilen, manchmal nur 90000 dann wieder 93000 oder 100000 Zeilen zu lesen. Somit sind die Anzahl der Zellen dynamisch.
Konnte auch lesen das man in den Steuerelementen auch eine Fortschrittsanzeige hinzufügen kann. Da ich aber nicht weiß ob der Kundenrechner über die zuständige OCX Datei verfügt möchte ich es anders lösen
Ich habe jetzt dieses Makro gefunden, und das möchte ich jetzt auch verstehen:
Private Sub cmdStart_Click()
Dim dblRow As Double
Application.ScreenUpdating = False
Me.Caption = "Bitte warten..."
For dblRow = 1 To 10000
If dblRow Mod 10 = 0 Then
lblProgress.Width = 222 * (dblRow / 10000)
fmeProgress.Caption = Format(dblRow / 10000, "0%")
DoEvents
End If
Cells(dblRow, 1) = "Zeile " & dblRow
Next dblRow
Cells.ClearContents
Unload Me
End Sub
Die deklaration ist soweit klar.Dann kommt eine for next schleife diese von 1-10000 Zählt. Wie kommt man auf diese 10000?
was ist der dblRow Mod 10 = 0?
Ja und warum dblrow /10000, der Rest bis next dblrow ist auch nicht so ganz klar