Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Filter

Filter
08.05.2007 11:33:59
Walter
Guten Tag,
habe folgende Filterung:
Range("A3:AS3").Select
If Not ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
Selection.AutoFilter Field:=4, Criteria1:="AA"
wenn ich aber in Spalte dies gefiltert habe:
Selection.AutoFilter Field:=5, Criteria1:="05" egal welches Criteria1:="01" oder 03 etc.,
möchte ich dies drin lassen, wenn ich allerdings eine andere Spalte filtere z.b 7 oder 9, möchte
in den Filter aus der Spalte 4 wegmachen.
Habe versucht mit if Selection.AutoFilter Field:=5, Criteria1:="05" then geht allerdings nicht.
Wer kann helfen ?
mfg Walter

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

Betreff
Datum
Anwender
Anzeige
Habe es hinbekommen durch -)
08.05.2007 12:07:00
Walter
Hallo,
habe dies Zeile so eingesetzt:
Selection.AutoFilter Field:=4
danach
Selection.AutoFilter Field:=5, Criteria1:="05" egal welches Criteria1:="01" oder 03 etc.,
so bin ich zufrieden,
mfg Walter

AW: Filter
08.05.2007 12:19:00
Erich
Hallo Walter,
schau dir das mal an:

Option Explicit
Sub tst()
Dim intFilt As Integer
For intFilt = 5 To 6
ActiveSheet.AutoFilterMode = False
Stop
Range("A1:AS1").Select
If Not ActiveSheet.AutoFilterMode Then Selection.AutoFilter
With Selection
.AutoFilter Field:=4, Criteria1:="AA"
Stop
If intFilt  5 Then .AutoFilter Field:=4 ' bei Filter nach 5 bleibt Filter 4
.AutoFilter Field:=intFilt, Criteria1:=Cells(2, intFilt)
End With
Stop
Next intFilt
End Sub

Bei jedem Stop kannst du in der Tabelle nachsehen, was angezeigt wird.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige