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

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

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


Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!

Hallo Excel-VBA-Gemeinde,
ich habe ein kleines Problem mit Filtern.
Kann man den Filter wieder auf "Alle" setzen via VBA
Ich habe eine ComboBox (Alle, A, B) mit der ich filter
If .ComboBox1.Text = "A" Then
Selection.AutoFilter Field:=1, Criteria1:="A", Operator:=xlAnd
En...

Hallo ihr Lieben,
ich hab ein Problem mit einer Filter Routine. In einer Mitgliederliste soll Excel beim Aufruf der Datei überprüfen, ob Mitglieder ihr Austrittsdatum erreicht haben. In Spalte I stehen diese Daten im Format 31.12.2008.
Aus dem Archiv hab ich mir folgenden Code herausges...

Hallo,
ich habe folgendes Problem mit VBA.
Ich habe in einer Liste den Autofilter eingebunden. Per VBA selektiere ich Daten nach Datumswerten mit folgendem Code:
Zunächst lese ich das in Zelle A1 vorhandene Datum "01.01.2009" aus und lege dieses in der Variable "datVon" ab. Diese Va...

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennumme...


Wunderschönen guten Tag,
ich habe ein Problem bei der Nutzung des Autofilters über VBA.
In meinem Excel-File gibt es Tabellenblätter in denen Datensätze hinterlegt sind. Diese sollen über Eingaben in eine UserForm (ComboBoxen) gefiltert werden. Hier die Datei dazu:
https://www...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige