Fortschrittanzeige
06.08.2015 10:07:14
Uli
nachdem ich meinen Code jetzt wie folgt geändert habe, stehe ich vor einem kleinen Problem.
der Code lautet (Auszug):
Sub Einlesen
Me.lblstatus.Caption = "Einlesen ..."
For Each fDatei In fdateien
zähler = zähler + 1
Me.lblstatus = "Einlesen " & zähler & " von " & fdateien.Count
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
'Hier wird der Dateiname in Spalte C eingetragen
Sheets(blatt1).Cells(Zeile, 3) = fDatei.Name
End If
GoTo weiter
fehler:
anzfehler = anzfehler + 1
weiter:
On Error Resume Next
Next
End Sub
Wenn ich mir den Status in einer Zelle einzeigen lasse, dann zeigt er mir während der Schleife den Fortschritt an. Wenn aber der Fortschritt in dem Label angezeigt werden soll, dann geht das nicht. Da zeigt er nur das Ergebnis nach Ende der Schleife an.Gibts da ne Möglichkeit, dass der Fortschritt (ohne Progressbar) in der Userform angezeigt wird?
lg.
Uli