Sub Autofilter_Activate()
  Dim Z As Range, HasText As Boolean
 
  If ActiveSheet.AutoFilterMode Then
    MsgBox "Sie dürfen pro Blatt maximal 1 Autofilter aktiviert!"
    Exit Sub
  End If
 
  If TypeName(Selection) <> "Range" Then
    MsgBox "Bitte markieren Sie einen Zellenbereich!"
    Exit Sub
  End If
 
  If Selection.Areas.Count > 1 Then
    MsgBox "Wählen Sie bitte nur einen Bereich aus!"
    Exit Sub
  End If
 
  HasText = False
  For Each Z In Selection
    If IsEmpty(Z) = False Then
      HasText = True
      Exit For
    End If
  Next Z
 
  If HasText Then
    Selection.AutoFilter
  Else
    MsgBox "Bitte Bereich markieren und Daten eingeben!"
  End If
 
End Sub

Viel Spass,
R@lf