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
Gibts da ne Möglichkeit, dass der Fortschritt (ohne Progressbar) in der Userform angezeigt wird?
lg.
Uli