wenn ich den Autofilter innerhalb eines Tabellenblattes eingeschaltet habe, kann ich ja zwischen dem Inhalt der jeweiligen Spalte und auch u.a. Leere bzw. Nichtleere filtern lassen. Gäbe es im untenstehenden Code eine Möglichkeit, diesen um Leere zu ergänzen? - Klicke ich nämlich innerhalb der Combobox einfach eine leere Zelle an, bekomme ich nicht nur Leere angezeigt. Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub Gesamt()
' Variablendeklaration
Dim intCounter As Integer
Dim shSource As Worksheet
Dim lngRow As Long
Dim wb As Workbook
Dim sport As String
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
'neue Tabelle für gefiltere Datensätze anlegen
' Objektvariable für aktives Blatt festlegen
Set shSource = Sheets("Gesamt")
' shSource.Unprotect
' Schleife über 16 TextBoxes
For intCounter = 1 To 16
'Wenn eine Auswahl erfolgte, dann
If Controls("cbbKriterium" & intCounter).ListIndex -1 Then
'Kriterium festlegen
If intCounter = 3 Then
shSource.Range("A1").Autofilter Field:=intCounter, _
Criteria1:=CDate(Controls("cbbKriterium" & intCounter).Value)
Else
shSource.Range("A1").Autofilter Field:=intCounter, _
Criteria1:=Controls("cbbKriterium" & intCounter).Value
End If
End If
Next intCounter
' Alle sichtbaren Zellen kopieren
shSource.Range("A1").CurrentRegion.Copy
' Neues Arbeitsblatt hinzufügen
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
' Autofilter ausschalten
shSource.Range("A1").Autofilter
' Kopiermodus ausschaltern
Application.CutCopyMode = False
' Zwischenspeicher einfügen
' Zelle A1 auswählen
Range("A1").Select
Unload Me
'shSource.Range("A1").Autofilter
'shSource.Protect
Set fd = Nothing
End Sub