Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Filter setzen

VBA Filter setzen
24.05.2019 11:17:53
Emre
Hallo zusammen,
ich habe ein VBA Tool das eine Tabelle bereinigt und das Ergebnis ausgibt.
Ich möchte dass er im Ergebnis direkt einen Filter in der ersten Reihe hat, wenn die Spalte nicht leer ist.
Mit Rows(""1:1"). Autofilter ist in der ganzen Reihe ein Filter.
Vielen Dank im Voraus.
LG
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Filter setzen
24.05.2019 13:41:15
Klaus
Hi Emre,
mit folgendem Code bekomme ich ausschließlich in Spalte A einen Autofilter:

Sub ResetAutofilter()
'example caller for the Autofilter Makro below
Dim iColFirst As Integer
Dim iColLast As Integer
Dim wksMySheet As Worksheet
Dim lRowFirst As Long
Set wksMySheet = Sheets("Tabelle1")  'sheet where this shall apply
iColFirst = 1                       'from column X (A=1,B=2...)
iColLast = 1                        'to column X
lRowFirst = 1                       'start in this row
Call DoResetAutofilter(wksMySheet, iColFirst, iColLast, lRowFirst)
End Sub
Sub DoResetAutofilter(wksMySheet As Worksheet, iColFirst As Integer, iColLast As Integer,  _
lRowFirst As Long)
'* in case a user used another autofiler, this makro resets the autofilter to where needed.
Dim lRowLast As Long
With wksMySheet
lRowLast = .Cells(.Rows.Count, iColFirst).End(xlUp).Row
If .AutoFilterMode Then .Cells.AutoFilter 'Turns OFF Autofilter, if any
.Range(.Cells(lRowFirst, iColFirst), .Cells(lRowLast, iColLast)).AutoFilter 'Turns ON  _
Autofilter on given range
End With
End Sub
LG,
Klaus M.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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