Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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

Filter(kriterium) nur in bestimmten Spalten aufheb

Filter(kriterium) nur in bestimmten Spalten aufheb
30.09.2012 21:29:16
Constantin
Hallo,
beim Öffnen einer Mappe setze ich abhängig vom User bereits in Zeile1 den Autofilter, bei dem in Spalte A z.B. das Kriterium "ABC" gesetzt wird. Alle weiteren Spalten haben noch kein einschränkendes Kriterium. Per CommandButton(s) möchte ich nun bestimmte, weitere Selektionen - zusätzlich zur Spalte A - vornehmen. Damit bei jeder Neuselektion die alten Filterkriterien nicht übersehen werden, möchte ich diese mit VBA aufheben, z.B. von Spalte B bis Z. Der Filter (bzw. das Kriterium) in Spalte A sollte allerdings immer erhalten bleiben.
Wer könnte mir hierzu einen Tipp geben, wie ich alle einschränkenden Filterkriterien von Spalte B bis Spalte Z aufheben kann?
Vielen Dank im Voraus.
Grüße, Constantin

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

Betreff
Datum
Anwender
Anzeige
AW: Filter(kriterium) nur in bestimmten Spalten aufheb
01.10.2012 05:54:00
Luschi
Hallo Constantin,
versuch es mal hiermit:

Sub Filter_B_bis_Ende_Aus()
Dim i As Integer, j As Integer
If ActiveSheet.AutoFilterMode Then
'Anzahl der Filterspalten, wenn ab Spalte 'A' der Filter beginnt
j = ActiveSheet.AutoFilter.Range.Columns.Count
On Error Resume Next
For i = 2 To j
'Filter ab Spalte 'B' ausschalten
ActiveSheet.AutoFilter.Range.AutoFilter Field:=i
Next i
On Error GoTo 0
End If
End Sub
Gruß von Luschi
aus klein-Paris

AW: Filter(kriterium) nur in bestimmten Spalten aufheb
01.10.2012 06:53:27
Constantin
Guten Morgen, Luschi,
werde ich dann gleich testen. So wie das für mich aussieht, ist es perfekt! Vielen Dank für Deine Unterstützung (und damit auch den guten Start für mich in den (Arbeits-)Tag)).
Viele Grüße,
Constantin
Anzeige

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige