Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
660to664
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter

Autofilter
07.09.2005 04:09:37
gnilk
Hallo Leute,
habe wieder mal ein Problem und brauche den VBA Code:
ich habe eine Tabelle. Manchmal ist der Autofilter Modus gesetzt ein anderes mal nicht. Ich will, dass mein VBA ueberprueft ob ein Autofilter gesetzt wurde. Wenn keiner gesetzt wurde soll VBA ihn setzen und falls ein Autofilter gesetzt wurde, so soll VBA ihn belassen.
Ich hab mir das mal so vorgestellt: (War natuerlich wieder zu naiv und hat nicht geklappt)
If Selection.FilterMode = False Then Selection.AutoFilter
Brauche Hilfe
Danke
Gnilk

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter
07.09.2005 06:53:11
Nepumuk
Hallo Gnilk,
versuch es mal so:
Public Sub test()
    If ActiveSheet.AutoFilterMode Then MsgBox "Es ist ein Filter in der Tabelle"
    If ActiveSheet.FilterMode Then MsgBox "Der Autofilter hat eine Liste gefiltert"
End Sub
Und benutzt doch mal die Hilfe, da steht das alles drin. Woher, meint ihr, weiß ich das? Auf alle Fälle nicht durch göttliche Eingebung.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
@nepumuk
08.09.2005 02:02:14
gnilk
Lieber Nepumuk,
ich glaube Du hast meine Frage nicht wirklich gelesen, oder Deine Microsoft Hilfe ist defekt. Versteh das bitte nicht falsch, aber die Hilfe bringt mir in dem Fall gar nichts.
Ich will auch nicht Deine Excel-Faehigkeiten ankreiden, jedoch ist es nicht die Loesung meines Problems.
Ich will einen Autofilter setzen, wenn keiner gesetzt ist. Sollte jedoch schon einer gesetzt sein, so will ich dass es so bleibt. Ich will KEINE MsgBox.
Trotzdem vielen Dank fuer Deine Bemuehungen.
Ciao
Gnilk
AW: @nepumuk
08.09.2005 08:14:33
Nepumuk
Hallo Gnilk,
das war nur als Beispiel gedacht, wie du abfragen kannst ob ein Filter in der Tabelle ist. Da ich deinen Tabellenaufbau nicht kenne, kann ich dir kein fertiges Programm liefern.
Gruß
Nepumuk
Anzeige
AW: Autofilter
07.09.2005 07:06:49
Christoph
Hallo,
der folgende Code aktiviert den Autofilter. Es werden jedoch keine Filter gesetzt.
If Not Worksheets(1).AutoFilterMode Then Worksheets(1).Cells.AutoFilter
oder auch:
If Not ActiveSheet.AutoFilterMode Then Selection.AutoFilter
beide Zeilen erzeugen einen Fehler, wenn der Bereich keine Daten enthält.
Gruß
Christoph
da hätte ich ja auch mal F5 drücken können (o.T)
07.09.2005 07:10:53
Christoph
AW: da hätte ich ja auch mal F5 drücken können (o.T)
08.09.2005 07:53:56
gnilk
Danke fuer Deine Hilfe,
hat aber nicht so funktioniert, wie ich mir das vorstelle.
Habe das Problem jetzt aber auf eine andere Art und Weise geloest.
Ciao
Gnilk
AW: Autofilter
07.09.2005 07:27:02
Manfred
Hallo Gnilk,
Versuche doch mal folgenden Code:

Private Sub CommandButton1_Click()
Dim xx As Worksheet
Set xx = Worksheets("Tabelle1")
If xx.AutoFilterMode = False Then
xx.Rows("1:1").Select
Selection.Autofilter
End If
End Sub

Um das Ereignis auszulösen habe ich einen CommandButton verwendet. Geht natürlich an beliebiger anderer Programmstelle auch.
Gruß
Manfred
Anzeige
AW: Autofilter
08.09.2005 07:54:49
gnilk
Danke fuer Deine Hilfe,
hat aber nicht so funktioniert, wie ich mir das vorstelle.
Habe das Problem jetzt aber auf eine andere Art und Weise geloest.
War eine gute Anregung.
Ciao
Gnilk
AW: Autofilter
07.09.2005 07:36:04
Beate
Hallo Gnilk,
Private Sub Worksheet_Activate()
    If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then Exit Sub
    Rows("1:1").AutoFilter
End Sub

Zeilenzahl für den Autofilter anpassen.
Gruß,
Beate
Anzeige
AW: Autofilter
08.09.2005 07:58:25
gnilk
Hallo Beate,
Dein Vorschlag sieht super aus, jedoch weiss ich nicht wie ich einen PrivateSub in mein Makro eingliedern kann. Mein Makro soll ja noch weiterlaufen.
Habe das Problem jetzt auf eine andere Art un Weise geloest. Waere aber nett, wenn du mir trotzdem erklaeren koenntest wie ich ein PrivatSub einbaue, so dass mein anderes Makro noch weiterlaeuft.
Ciao
Gnilk
Codeeinbau
08.09.2005 22:51:06
Beate
Hallo Gnilk,
dann schneide doch meinen Code einfach aus, aber er muss ans Ende deines Codes, weil das Makro ja beendet wird, wenn schon ein Filter eingebaut ist. Also, dass dein Makro dann so aussieht:
Sub Dein_Makro()
    'hier dein Code
    If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then Exit Sub
    Rows("1:1").AutoFilter
End Sub

Gruß,
Beate
Anzeige
AW: Codeeinbau andere Alternative
08.09.2005 23:07:25
Beate
Hallo Gnilk,
hier noch die Variante, wenn du vor und nach meinem Code eigenen Code einfügen möchtest:
Sub Dein_Makro2()
    'hier dein Code
    If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then
        GoTo weiter
        Else: Rows("1:1").AutoFilter
    End If
    weiter:
    'hier dein Code
End Sub
Gruß,
Beate
Anzeige
@Beate
09.09.2005 01:38:08
gnilk
Hallo Beate,
ja ich habe es auch so aehnlich geloest. Ich konnte es zum Glueck schon machen, ohne Deinen Beitrag zu loesen. Vielleicht darf ich die Hoffnung mit VBA noch nicht aufgeben! Aber trotzdem vielen Dank fuer Deinen Tip. Mich haette nur gerne interessiert, wie ich mehrere Subs mit nur einem CommandButton(z.B.) aktivieren kann.
So habe ich es gemacht:
If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then GoTo Weiter
Selection.AutoFilter
Weiter:
Es schreit regelrecht nach Plagiat! Nehm es mir nicht uebel. Deine Anregung war super!
Ciao
Gnilk
PS: Gruss aus Down Under
Anzeige
AW: @Beate
09.09.2005 10:53:37
Beate
Hallo Gnilk,
gleichzeitig laufen kann immer nur ein Makro. Aber in deinem Makro kann ein anderes aufgerufen werden und nach Abarbeitung desselben wird das Ausgangsmakro weiter abgearbeitet.
Angenommen, dein "Untermakro" heißt Test2 und dein "Kopfmakro" Test1, dann geht das so in Test1:
Sub Test1()
    'Makrocode
    Call Test2
    'Makrocode
End Sub
Gruß,
Beate
Anzeige

11 Forumthreads zu ähnlichen Themen

If Rows.Hidden = True Then End
Karsten

Hallo,
Eine Frage:
Der folgende Code besagt doch, wenn Zeilen versteckt (ausgeblendet) sind, dann gehe zu End. Warum läuft er in beiden Fällen bei mir weiter? Oder wie wird er richtig geschrieben?
If Rows.Hidden = True Then End
Danke für eure Hilfe.
Gruß
Karsten
20.11.2010 16:32:04
Thread-ID: 1187947
12 Beiträge
Anzeige
AutoFilterMode = False produziert Fehlermeldung
Peter

Guten Tag
In meinem Worksheet wsTab ist ein Autofilter aktiv.
Weshalb erhalte ich bei meinem Code Sub XXX() Set wbThis = ThisWorkbook: Set wsTab= wbThis.Sheets("Liste") With wsTab .AutofilterMode = False End With wsTab.Range("_rFilter").Autofilter End Sub
die Fehlermeldung
"Di...
11.02.2014 14:43:30
Thread-ID: 1349096
9 Beiträge
VBA IF "Dateipfad = false then
Mario

Guten Tag
Habe noch ein Problem mit meiner Excel Liste und habe leider keinen plan xD
und zwar:
habe derzeit die AktiveWorkbook.ReadOnly abfrage drinnen und möchte zusätzlich abchecken ob die Datei in den von mir Vorgegebenen Dateipfad liegt ( falls möglich ohne Filenamen sondern nu...
21.10.2017 17:51:29
Thread-ID: 1587172
8 Beiträge
Anzeige
VBA-Zugriff auf Autofilter-Abfrage
Matthias Maultzsch
Ich habe eine Tabelle mit Autofilterabfrage. Wie greife ich per VBA auf die einzelnen Treffer zu bzw. wo steht, in welchen Zeilen die Treffer sind?
Es nützt mir leider nichts, wenn ich dazu die Zeilen manuell per Maus anklicke o.s.
09.03.2004 09:37:51
Thread-ID: 394383
2 Beiträge
if CheckBox1 = True then ??????
Steve

Private Sub CheckBox1_Click() ''Click? gibts nicht sowas wie Checked? if CheckBox1 = False then CheckBox1 = True CheckBox2.Enabled = False else CheckBox1 = False CheckBox2Enabled = True end if End Sub
Ich möchte beim setzen des Häckchen (Nur schon das funktioniert nicht, er macht keine Hä...
01.03.2005 12:03:42
Thread-ID: 578776
4 Beiträge
VBA Zugriff auf AutoFilter Position
Oli

Hallo zusammen,
ich habe per VBA eine Autofilter angelegt.
Wie greife ich denn jetzt auf die gefundenen Positionen zu ?
Anbei der Code zum Filter:
If Not Worksheets(Sheet).AutoFilterMode Then
Worksheets(Sheet).Range("A71").AutoFilter field:=1, Criteria1:=OrgUnit
End...
05.08.2005 08:45:10
Thread-ID: 648092
2 Beiträge
If ActiveSheet.Value = True Then
Wagner-ES

Werte Forumsmitglieder!
Ab und zu habe ich hier hineingeschaut und gelegentlich auch nette Kleinigkeiten gefunden.
nun habe ich wirklich ein Problem, aber ich stehe einfach mal auf dem Schlauch.
Und zwar möchte ich gerne bei der Aktivierung eines Tabellenblattes einen Eintrag in ein...
04.07.2006 15:52:23
Thread-ID: 779055
3 Beiträge
If = True Then Makro Beenden
Mister

Guten Morgen,
irgendwie komme ich hier nicht weiter. Ich möchte, wenn UserForm1.CheckBox4 nicht "gecheckt" ist, dass der Makro aufhört. Wenn er "gecheckt" ist, soll der Makro zu Ende laufen. Ich hab's versucht mit:
If UserForm1.CheckBox4.Value = False Then End
aber es klappt nich...
27.10.2006 09:57:57
Thread-ID: 814438
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
3
8
7
23
1
3
1
2
3
9