Anzeige
Archiv - Navigation
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige