Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
'ausblenden
Dim objSheet As Object
Dim i As Integer
 
 
For Each objSheet In Sheets
    i = 4 'Start der Daten erst ab Zeile 4!
    While objSheet.Cells(i, 9) <> ""  'Status befindet sich in Spalte 9
        If objSheet.Cells(i, 9) = ausblenden.ComboBox1.Value Then
            Rows(Format(i)).EntireRow.Hidden = False
        Else
            Rows(Format(i)).EntireRow.Hidden = True
        End If
        i = i + 1
    Wend
Next
End Sub
 
Private Sub CommandButton3_Click()
Dim objSheet As Object
Dim i As Integer
'rückgängig
 
For Each objSheet In Sheets
    i = 4
    While objSheet.Cells(i, 9) <> ""
        If objSheet.Cells(i, 9) = ausblenden.ComboBox1.Value Then
            Rows(Format(i)).EntireRow.Hidden = False
        Else
            Rows(Format(i)).EntireRow.Hidden = False
        End If
        i = i + 1
    Wend
Next
End Sub
 
 
Private Sub UserForm_Initialize()
 
 
Dim i As Integer
p = ActiveWorkbook.Path
n = "Aktivitätsdatenbank.xls"
    Dim objkat As Object
    Dim objkat1 As Object
 
    Set objkat = GetObject(p & "\" & n)
    With objkat
    Set objkat1 = .Worksheets("Status").[A1].CurrentRegion
    ComboBox1.Value = "- Bitte auswählen -"
 
    For i = 2 To .Worksheets("Status").Cells.SpecialCells( _
      xlCellTypeLastCell).Row
        Call ComboBox1.AddItem(.Worksheets("Status").Cells(i, 1))
    Next i
 
    End With
 
End Sub