VBA Filterproblem
23.06.2015 07:22:52
WalterK
der unten angeführte FilterCode soll eine Tabelle nach den Bezeichnungen, die im Bereich C89:C98 angeführt sind filtern. Das funktioniert allerdings nur, wenn im Bereich C89:C98 alle 10 Zellen befüllt sind. Das ist aber nicht immer der Fall und dann bricht der Code ab mit dem Fehler: Typen unverträglich.
Wie kann ich dem Code sagen, dass er im Bereich C89:C98 nur die Zellen zum Filtern nimmt, in denen auch etwas steht?
Sub FilterEin()
Dim wksMenü As Worksheet
Dim wksPool As Worksheet
Dim LzB As Long
Dim LCol As Long
Dim Suchbegriff As String
Dim Suchzeile As Variant
Set wksMenü = Worksheets("MENÜ und NAVIGATION")
Set wksPool = Worksheets("PoollisteFertig")
LzB = wksPool.Cells(Rows.Count, 2).End(xlUp).Row
LCol = Cells(1, Columns.Count).End(xlToLeft).Column
Suchbegriff = wksMenü.Range("F87")
Suchzeile = Application.Match(Suchbegriff, wksPool.Rows(1), 0)
If Not IsNumeric(Suchzeile) Then
MsgBox "Die im Blatt >>> MENÜ und NAVIGATION >> PoollisteFertig