Fortschritt einer Schleife anzeigen

Uli · 2015-08-03T12:03:53+00:00

Hallo liebe Experten. ich lese aus einem externen Programm jeden Monat per VBA eine txt-Datei in eine Excel-Tabelle ein. Außerdem formatiert die Programmierung diese Datei. Die Datei hat ca. 40.000 Zeilen. 8 Schleifen prüfen jeweils diese Zeilen auf bestimmte Varianten und optimieren diese Tabelle. Das ganze dauert ca. 20-30 min. Meine Frage. Kann ich in meiner Userform einen Fortschritt einbauen, der mir anzeigt, bei wieviel % ich angekommen bin? Gibt es sowas? lg Uli

Hi
ich vermute mal, dass dein Code noch Verbesserungspotential hat und sich die Bearbeitungszeit noch deutlich nach unten bringen lässt.
ansonsten ist der einfachste Weg den Fortschritt anzuzeigen, die Statusleiste am unteren Fensterrand.
dort zeigt Excel normalerweise an, was es gerade macht, du kannst diese Zeile aber auch für eigene Hinweise nutzen.
Beispielsweise so:

For i = 1 to 1000
Application.Statusbar = "Schleife 1, bearbeitet: " & Format(i / 1000, "0%")
Next
For i = 1 to 1000
Application.Statusbar = "Schleife 2, bearbeitet: " & Format(i / 1000, "0%")
Next
Application.Statusbar = False ' gibt die Statusleiste wieder für Excel frei

ansonten gibt es in der Userform noch das Steuerelement "Progressbar"
falls es in deiner Werkzeugsammlung nicht vorhanden ist, kannst du es über das Kontextmenü "weitere Steuerelemente" hinzufügen ("Microsoft Progressbar Control")
in der Schleife dann den .Value-Wert der Progressbar mit einem Wert zwischen 1 und 100 befüllen, dieser wird dann angezeigt.
Aber wie gesagt, vorrangiges Ziel sollte sein, die Bearbeitungszeit soweit nach unten zu bringen, dass eine Progressbar nicht notwendig ist und daher dem Ratschlag von Sepp folgen und erst mal eine Beispieldatei mit deinem Code und aussagekräftigen Beispielwerten hochladen.
Gruß Daniel

Hallo Uli,
abseits eine Fortschritsanzeige, solltest du deinen Code erst einmal optimieren.
Anstatt 5 mal 20000 Zeilen abzuklappern geht das mit einem Aufwaschen. Und auch die Zeilen im Block zu löschen anstatt einzeln ist viel schneller. Und so zieht sich das durch den ganzen Code.
Beispiel:

Sub Hauptprogramm()
Dim zeile7 As Integer
Dim rngDel As Range
Dim lngR As Long

'On Error GoTo fehler
Application.ScreenUpdating = False

'Worksheets(2).Name = Worksheets(1).Cells(16, 2)
Call Tabelle_formatieren
'zeile7 = 1

With Sheets(1)
  For lngR = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
    If Left(.Cells(lngR, 1), 1) = "*" Or Left(.Cells(lngR, 1), 16) = "Abrechnungsliste" Or _
      Left(.Cells(lngR, 1), 1) = "=" Or Left(.Cells(lngR, 1), 11) = "Suchbegriff" Or _
      Left(.Cells(lngR, 1), 1) = "-" Then
      If rngDel Is Nothing Then
        Set rngDel = .Cells(lngR, 1)
      Else
        Set rngDel = Union(rngDel, .Cells(lngR, 1))
      End If
    End If
  Next
  If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End With

'Do
'    If zeile7 > 20000 Then Exit Do
'    If Left(Sheets(1).Cells(zeile7, 1), 1) = "*" Then
'    Sheets(1).Cells(zeile7, 1).EntireRow.Delete
'    Else
'    zeile7 = zeile7 + 1
'    End If
'Loop
'zeile7 = 1
'Do
'    If zeile7 > 20000 Then Exit Do
'    If Left(Sheets(1).Cells(zeile7, 1), 16) = "Abrechnungsliste" Then
'    Sheets(1).Cells(zeile7, 1).EntireRow.Delete
'    Else
'    zeile7 = zeile7 + 1
'    End If
'Loop
'zeile7 = 1
'Do
'    If zeile7 > 20000 Then Exit Do
'    If Left(Sheets(1).Cells(zeile7, 1), 1) = "=" Then
'    Sheets(1).Cells(zeile7, 1).EntireRow.Delete
'    Else
'    zeile7 = zeile7 + 1
'    End If
'Loop
'zeile7 = 1
'Do
'    If zeile7 > 20000 Then Exit Do
'    If Left(Sheets(1).Cells(zeile7, 1), 11) = "Suchbegriff" Then
'    Sheets(1).Cells(zeile7, 1).EntireRow.Delete
'    Else
'    zeile7 = zeile7 + 1
'    End If
'Loop
'zeile7 = 1
'Do
'    If zeile7 > 20000 Then Exit Do
'    If Left(Sheets(1).Cells(zeile7, 1), 1) = "-" Then
'    Sheets(1).Cells(zeile7, 1).EntireRow.Delete
'    Else
'    zeile7 = zeile7 + 1
'    End If
'Loop

Call Seitenumbruch_loeschen
Call zeilen_auffuellen
Call Leerzeile_einfuegen
Call HHST_anpassen
Call Datum_erstellen
Call WfB
Call Krippe
Call IGruppe
Call IKrippe
Call AW
fehler:
'Worksheets(1).Activate 'Zielblatt aktivieren
'Worksheets(1).Cells(1, 1).Select
'Worksheets(1).[b22].Value = "Fehler! " & Format(Now(), "DD.MM.YY")
'Application.ScreenUpdating = True
'
'Sheets(1).Range("a:g").Columns.AutoFit    'stellt Spaltenbreite optimal ein
'[b22] = "formatiert"
'Sheets(1).Name = "formatierte Liste"
''Sheets("Menü").Select
'Range("B2").Select

End Sub

Gruß Sepp

Fortschritt einer Schleife anzeigen

Forumthread: Fortschritt einer Schleife anzeigen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Fortschritt einer Schleife in Excel anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Fortschritt einer Schleife anzeigen

Forumthread: Fortschritt einer Schleife anzeigen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Fortschritt einer Schleife in Excel anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread