Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Filtern per VBA

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filtern per VBA
19.09.2005 12:07:47
Luschi
Hallo Serge,
hier ist 1 Lösungsvorschlag:
Sub filterEin()
Dim n As Long, x As Variant
n = Sheets("Filter").DropDowns("Dropdown 9").Value
If n = 4 Then
x = Null
Else
x = "=" & n
End If
Range("d2").Select
Sheets("Januar").Select
Selection.AutoFilter Field:=2, Criteria1:=x
Sheets("Februar").Select
Selection.AutoFilter Field:=2, Criteria1:=x
Sheets("März").Select
Selection.AutoFilter Field:=2, Criteria1:=x
Sheets("Filter").Select
Range("aufheben").Select
End Sub

Gruß von Luschi
aus klein-Paris
Danke i.O
19.09.2005 14:20:21
serge
Danke Luschi
es klappt hervorragend!
Aber sag wo ist klein-Paris?
Gruss aus dem Elsass
Serge
Anzeige
AW: Filtern per VBA
19.09.2005 12:14:26
joko0803
Hallo Serge,
versuch es mal so ...
Gruß
John

Sub filterein()
Dim Ziel As String
Dim shtfilter As Worksheet
Set shtfilter = ThisWorkbook.Sheets(1)
Ziel = Range("D2")
For Schleife = 2 To Sheets.Count
Sheets(Schleife).Select
Selection.AutoFilter Field:=2, Criteria1:=Ziel
Next Schleife
shtfilter.select
End Sub

AW: Filtern per VBA
19.09.2005 14:23:37
serge
Danke joko
Ziel = Range("D2") wollte ich eben auslassen!
Die Antwort von Luschi lauft
Gruss Serge

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige