'Fortschrittsbalken initialisieren
        ProgressBarEXE.Minimum = 0
        ProgressBarEXE.Maximum = 'Dauer der Schleife
        ProgressBarEXE.Value = 0
 
For i = 1 To lv.Anz
            'Aktuellen Datensatz setzen
            lv.Rec = i
            Select Case lv.SaA                                          
                Case "LG", "UG", "U1", "U2"
                    curRow += 1
                    'LV- Daten lesen und Excel zuweisen
                    'Satzart (Spalte 1)
                    CType(xlBlatt.Cells, Excel.Range)(curRow, 1).value = Trim( _
                      lv.SaA)
                    'PosNr (Spalte 2)
                    CType(xlBlatt.Cells, Excel.Range)(curRow, 2).value = Trim( _
                      lv.PNr)
                    'Kurztext (Spalte 3)
                    CType(xlBlatt.Cells, Excel.Range)(curRow, 3).value = Trim( _
                      lv.KTx)
            End Select
 
            'Fortschrittsbalken erhöhen
            ProgressBarEXE.Value += 1
 
        Next
        ProgressBarEXE.Value = ProgressBarEXE.Minimum