Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Script nach AutoFilter Aufrufen

Forumthread: VBA-Script nach AutoFilter Aufrufen

VBA-Script nach AutoFilter Aufrufen
04.04.2005 13:13:41
Markus
Hallo Zusammen,
ich möchte nach dem Auswälen eines AutoFilters eine VBA Funktion aufrufen.
Wie kann ich dies machen?
Bei Änderungen am Sheet kann ich die folgende Funktionn verwenden:
Private Sub Worksheet_SelectionChange()...
Leider hat die Auswahl des AutoFilters keinen Aufruf dieser Funktion zur folge...
Danke.
Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Script nach AutoFilter Aufrufen
04.04.2005 13:21:47
Boris
Hi Markus,
theoretisch kannst du dafür das Calculate-Ereignis nutzen (mit Hilfe der irgendwo hinterlegten Funktion ZUFALLSZAHL() ), indem du bei jeder Berechnung den Status der einzelnen Filter des Filterobjektes überprüfst.
Schwierigkeit dabei, dass das Calculate-Ereignis bei jeder beliebigen Aktion ausgelöst wird (z.B. normale Zelleingabe), du ja dein makro aber nur aufrufen möchtest, wenn ein Filter geändert wurde. Hat zur Folge, dass man die Filterstati irgendwo zwischenspeichern muss (z.B. in einer globalen Arrayvariablen).
Lange Rede kurzer Sinn: Bei "Kaum Excel/VBA-Kenntnisse" ein nicht zu empfehlendes Unterfangen.
Schilder doch mal den Hintergrund deiner Anfrage - vielleicht gibt´s ja ne andere Lösung.
Grüße Boris
Anzeige
AW: VBA-Script nach AutoFilter Aufrufen
04.04.2005 14:35:04
Markus
Hallo Boris,
Danke! Die Idee mit der Zufallszahl-Funktion hat mir schon sehr geholfen.
Ich verwende nun die folgende Funktion um nach dem Auswählen im AutoFilter
immer einen zusätzlichen Wert mit hinzuzufügen.
Gruß
Markus

Private Sub Worksheet_Calculate()
Set w = Worksheets("Tabelle1")
With w.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For f = 1 To .Count
With .Item(f)
If .On Then
filterArray(f, 1) = .Criteria1
If .Operator Then
filterArray(f, 2) = .Operator
filterArray(f, 3) = .Criteria2
End If
End If
End With
Next
End With
End With
If Len(filterArray(5, 1)) > 0 Then
If Len(filterArray(5, 3)) = 0 Then
Selection.AutoFilter field:=5, Criteria1:=filterArray(5, 1), Operator:=xlOr, _
Criteria2:="=ALL"
End If
End If
If Len(filterArray(6, 1)) > 0 Then
If Len(filterArray(6, 3)) = 0 Then
Selection.AutoFilter field:=6, Criteria1:=filterArray(6, 1), Operator:=xlOr, _
Criteria2:="=ALL"
End If
End If
End Sub

Anzeige
Viell. solltest du künftig nicht so tief stapeln..
04.04.2005 16:08:05
Boris
Hi Markus,
denn mit "Kaum Kenntnisse" hat dein geposteter Code wenig zu tun.
Grüße Boris
;

Forumthreads zu verwandten Themen

VBA- Autofilter - leere Zeilen löschen
Asits

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!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Autofilter via VBA wieder auf "ALLE" setzen
Patrick

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...
24.10.2008 13:05:00
Thread-ID: 1018976
3 Beiträge
Autofilter mit VBA
Steffan

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...
12.01.2009 19:15:39
Thread-ID: 1038988
4 Beiträge
Autofilter per VBA aufrufen
Armin

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...
21.01.2009 15:45:00
Thread-ID: 1042249
4 Beiträge
erste Zeile des Autofilters per VBA erkennen
Ptonka

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...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Problem mit Autofilter über VBA
Antsche


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...
18.06.2009 16:53:36
Thread-ID: 1082687
4 Beiträge
Anzeige
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Autofilter Doppelnennungen filtern über VBA
Emil

Hallo zusammen,
ich habe folgendes Problem innerhalb eines größeren Makros:
Ich habe eine Tabelle aus der ich mittels eines Makros Werte in ein Diagramm übertrage.
Hierzu werden schon Spalten über den Autofilter nach bestimmten Auswahlkriterien gefiltert, das funktioniert alles wund...
03.09.2009 17:33:39
Thread-ID: 1100285
2 Beiträge
Blattschutz - Zugriff auf Autofilter -VBA-
Wolfgang

Hallo,
mit nachstehendem Code wird in allen Tabellenblättern der Blattschutz eingeschaltet. Nun mußte ich feststellen, dass AutoFilter sich nicht bedienen lässt, so dass ich hierzu die nachstehende Ergänzung eingebaut habe. Allerdings ohne Erfolg, es tut sich nichts.- Wie müßte ich den Cod...
26.10.2009 19:52:57
Thread-ID: 1112334
5 Beiträge
Werte eingeben bei gesetzem Autofilter via VBA
Gegga

Mahlzeit...
Mal ne kleine Frage
Habe ne Liste, mit einem gesetzen Autofilter (Mehre Zeilenab zeile 6 sind eingeblendet, nicht nur eine, z.B 6,12,14,19,26,37). Nach Ausdruck dieser Liste soll in die eingeblendeten Zellen via UF das Druckdatum (textbox) und der Sachbearbeiter (Combobox)in...
29.01.2010 13:59:40
Thread-ID: 1134124
2 Beiträge
Autofilter, Zellinhalt, VBA
Bernd

Hallo Excelfreunde,
ich habe ein Problem mit dem Autofilter. Die Spalte F (siehe Beispieldatei) soll nach den Kriterien in den Zellen I1 und I2 gefiltert werden. Die Kriterien werden in der Originaldatei mittels Formeln ermitteln, weil sich diese auf bestimmte Selektionen (Jahr, Monat, Quar...
24.02.2010 17:51:17
Thread-ID: 1141199
3 Beiträge
VBA-Makro mit AutoFilter
Sebastian

Hallo an alle,
nachdem ich mich nun seit einigen Wochen in VBA einarbeite und bisher bei allen Problemen mit der Forensuche und der MSDN Library gut zurecht gekommen war, bin ich heute leider auf ein Problem gestoßen, das ich so alleine nicht zu lösen vermag. Ich hoffe ihr könnt mir dabei h...
07.03.2010 00:54:30
Thread-ID: 1144043
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige