Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1836to1840
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
Inhaltsverzeichnis

Autofilter richtig setzten

Autofilter richtig setzten
24.06.2021 12:47:15
Sebastian
Hallo zusammen,
ich versuch seit gestern verzweifelt per makro den autofilter richtig zu setzten.
Die Filter sollen ins Zeile 3 gesetzt werden.
Der Code dazu ist ja eigentlich einfach.
Leider wird mir der Filter dan in Zeile 1 angezeigt
Anbei der Code
folgendes Makro wird über einen Button ausgelöst

Private Sub Ansicht1_Click()
Range("A4").Select
ActiveWindow.FreezePanes = True
AutoFilterEinschalten1
End Sub
Folgender Code versteckt sich hinter AutoFilterEinschalten1

Sub AutoFilterEinschalten1()
With Steuerung
If .AutoFilterMode Then Exit Sub
.Range("A3").AutoFilter
End With
End Sub
Hoffe ihr könnt mir helfen
,Danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter richtig setzten
24.06.2021 13:17:56
Nepumuk
Hallo Sebastian,
versuch es mal so:

Private Sub AutoFilterEinschalten1()
With Steuerung
If Not .AutoFilterMode Then .Rows(3).AutoFilter
End With
End Sub
Gruß
Nepumuk
AW: Autofilter richtig setzten
24.06.2021 14:56:20
Sebastian
Super vielen dank, jetzt sind sie da wo sie sollen. ;)
AW: Autofilter richtig setzten
24.06.2021 13:30:44
Daniel
Hi
wenn du beim aktivieren des Autofilters nur eine Zelle angibst, dann erweitert Excel diesen Bereich soweit, bis er eine abgeschlossene Tabelle ergibt, dh bis zur nächsten durchgehenden Leerzeile und durchgehenden Leerspalte, und dies nach oben und nach unten, bzw nach links und nach rechts.
dh wenn in Zeile 2 und Zeile 1 auch noch Werte stehen, dann gehen diese mit in den Zellbereich des Autofilters und da der Autofilter nur eine Zeile Überschrift hat, steht diese dann in Zeile 1
es funktionert also, wenn die Zeile direkt über der gewünschten Überschrift (in deinem Fall Zeile 2) leer ist.
Wenn das nicht gut aussieht, kann man diese Zeile auch ausblenden.
wenn die Leerzeile zwischendrin keine Option ist, musst du den Zellbereich passen angeben:

.Range(.Cells(3, 1), .Cells.SpecialCells(xlcelltypelastcell)).Autofilter
oder wie Nepumuk geschrieben hat mit der ganzen Zeile arbeiten.
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige