Excel VBA


AutoFilter aus UserForm benutzen

Ausgangslage:
Ein Tabellenblatt enthält 2 oder mehr Spalten.
In der Spalte A steht der Vorname.
In der Spalte B der Nachname.
Der AutoFilter ist aktiv.

UserForm:
Es besteht ein UserForm mit einer ComboBox
und drei Schaltflächen.

Aufgabe:
Aus der ComboBox kann ein Nachname ausgewählt werden.
Per Klick auf die erste Schaltfläche wird die Spalte B entsprechend gefiltert.
Die zweite Schaltfläche dient dazu, die Filterung aufzuheben.

Public MyAutoFilter As String

' UserForm befüllen
Private Sub UserForm_Initialize()
   With ComboBox1
      .AddItem "Weber"
      .AddItem "Can"
      .AddItem "Mosimann"
   End With
End Sub

' Schaltfläche "Filter setzen"
Private Sub CommandButton1_Click()
   MyAutoFilter = ComboBox1.Value
   Range("B1").AutoFilter _
   Field:=2, _
   Criteria1:=MyAutoFilter
End Sub

' Schaltfläche "Filter aufheben"
Private Sub CommandButton2_Click()
   Range("B1").AutoFilter _
   Field:=2
End Sub

' Schaltfläche "Abbrechen"
Private Sub CommandButton3_Click()
   Unload Me
End Sub