If anzahl > 0 Then
            For w = 0 To anzahl
                Dim text = Nothing
                For Each k As String In Me.IstListe.SelectedItems
                    text = k
                    Dim split As String() = text.Split(New [Char]() {" "c})
                    For b = a To lv.Anz
                        lv.Rec = b
                        If text = Me.IstListe.SelectedItem Then
                            If (Trim(lv.PNr) = Trim(split(0))) Or _
                              lv.PNr.StartsWith(split(0)) Then
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 1) = _
                                lv.PNr
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 2) = _
                                lv.KTx
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 3) = _
                                lv.PoA
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 4) = _
                                lv.HKZ
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 5) = _
                                lv.LvM
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 6) = _
                                lv.EH
                                If Not lv.LvM = "0" Then
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                      7) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    8) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    9).Select()
                                    excel.ActiveCell.FormulaR1C1 = _
                                    "=RC[-2]+RC[-1]"
                                    excel.ActiveCell.NumberFormat = "#,##0.00"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                      10).Select()
                                    excel.ActiveCell.FormulaR1C1 = _
                                    "=RC[-1]*RC[-5]"
                                    excel.ActiveCell.NumberFormat = "#,##0.00"
                                    thisThread.CurrentCulture = originalCulture
                                End If
                                curRow += 1
                                w += 1
                            End If
                        End If
                    Next b
                Next k
            Next w
            If b = lv.Anz Then
                ProgressBarEXE.Value = ProgressBarEXE.Maximum
            Else
                'Fortschrittsbalken erhöhen
                ProgressBarEXE.Value += 1
            End If
        End If