Public Sub alleKSTXLS()
Dim lngZeile As Long
Dim i As Integer
Dim wksExportTabelle As Worksheet
Dim wbkNeu As Workbook
Application.ScreenUpdating = False
With ActiveSheet
For lngZeile = 0 To .ComboBox1.ListCount - 1
Range("B2") = .ComboBox1.List(lngZeile)
.Outline.ShowLevels RowLevels:=5
For i = 4 To 152
If .Cells(i, 19) = 0 Then .Rows(i).Hidden = True
Next i
Set wksExportTabelle = ActiveWorkbook.Worksheets("BAB")
wksExportTabelle.Copy
Set wbkNeu = ActiveWorkbook
Range("A1:P152").Value = _
ThisWorkbook.Worksheets("BAB").Range("A1:P152").Value
For i = 4 To 152
If .Cells(i, 19) = 0 Then .Rows(i).Hidden = False
Next i
.Outline.ShowLevels RowLevels:=2
Next lngZeile
End With
End Sub