Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Filter

Forumthread: VBA - Filter

VBA - Filter
20.02.2020 21:43:05
WalterK
Schönen Abend,
den folgenden Code habe ich für meine Bedürfnisse angepasst, er kommt ursprünglich von Daniel aus dem Jahre 2015.
Mittels VBA wird ein Filter gesetzt und unabhängig von den sonstigen Einträgen in Spalte C:C werden die Einträge "Barzahlung" und "Fremdfinanzierung" weg gefiltert.
Funktioniert auch tadellos.
Jetzt sollte es aber so sein, dass auch die leeren Zellen weggefiltert werden. Und da fehlt mir die Idee dazu!
Hier der Code, vielleicht kann mir jemand weiter helfen:
Sub Filtern()
Dim wks As Worksheet
Dim arr1, arr2
Dim Z As Long
Set wks = Worksheets("EINGABEN-BERECHNEN-ORGANISIEREN")
arr1 = wks.Range("C2:C167").Value
ReDim arr2(1 To UBound(arr1, 1)) As String
For Z = 2 To UBound(arr1)
Select Case arr1(Z, 1)
Case "Barzahlung", "Fremdfinanzierung"
Case Else
arr2(Z) = CStr(arr1(Z, 1))
End Select
Next
wks.Range("C2:C167").AutoFilter Field:=3, Criteria1:=arr2, Operator:=xlFilterValues
Set wks = Nothing
End Sub 
Danke und Servus, Walter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Filter
21.02.2020 00:40:42
fcs
Hallo Walter,
mit den folgenden beiden Anpassungen sollte es funktionieren.
Sub Filtern()
Dim wks As Worksheet
Dim arr1, arr2
Dim Z As Long
Set wks = Worksheets("EINGABEN-BERECHNEN-ORGANISIEREN")
arr1 = wks.Range("C2:C167").Value
ReDim arr2(1 To UBound(arr1, 1))                            'fcs geändert
For Z = 2 To UBound(arr1)
Select Case arr1(Z, 1)
Case "Barzahlung", "Fremdfinanzierung", ""          'fcs geändert
Case Else
arr2(Z) = CStr(arr1(Z, 1))
End Select
Next
wks.Range("C2:C167").AutoFilter Field:=3, Criteria1:=arr2, Operator:=xlFilterValues
Set wks = Nothing
End Sub
LG
Franz
Anzeige
AW: VBA - Filter
21.02.2020 08:41:51
WalterK
Hallo Franz,
TipTop, jetzt gehts wie es soll.
Besten Dank und Servus, Walter
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige