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

" KST " & Range("C2")