Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter Excel2010 komplett m.VBA sichern/setzen

Autofilter Excel2010 komplett m.VBA sichern/setzen
Kersten
Hallo zusammen,
trotz der Suchfunktion komme ich nicht weiter. Ich möchte in einem Sheet mit Autofilter mittels
VBA diese aufheben und danach wieder setzen. Das Excelbeispiel >> Sub ChangeFilters() der Hilfefunktion geht nur teilweise.
+ 1 oder 2 Kriterium (Variant/String) ist ok
+ Text-Zahlenauflistung (Variant/Array) ist ok
+ Funktionen Top 10/Über dem Durchschnitt (Variant/String o /Long) ist ok
+ Schriftfarbe (Variant/Long) ist ok (Criteria1 hat den Farbwert)
- Zellfarbe (Variant/Object/Interior) geht nicht (scheint ein ganzes Objekt zu sein und nicht nur ein Farbwert)
- Datumsauflistung (Variant) geht nicht (Criteria1 & 2: Anwendungs- oder objektdefinierter Fehler)
Hat jemand ein Beispielprog das "alles" sichern (in Variable) und anschließend wieder herstellen kann?
Herzlichen Dank
Kersten
Zusatzfrage: wenn z.B. .Criteria2 nicht verwendet wird, hat sie im Fenster Überwachungsausdrücke den
"Wert" . Wenn ich .Criteria2 einer Variable zuordnen möchte,
bricht das Programm mit einem Laufzeitfehler (1004) ab. Kann ich diesen Zustand abfragen (außer mit
On Error Goto ... was irgendwie unsauber wirkt)?

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

Betreff
Benutzer
Anzeige
AW: Autofilter Excel2010 komplett m.VBA sichern/setzen
21.08.2012 10:18:13
Josef

Hallo Kersten,
dazu gibt es benutzerdefinierte Ansichten, kann man auch per Recorder aufzeichnen.

« Gruß Sepp »

Beispiel.
21.08.2012 10:53:51
Josef

Hallo Kersten,
Sub sichern_und_aufheben()
  Dim objFilter As Filter
  Dim bolFilter As Boolean
  
  With ActiveSheet
    If .AutoFilterMode Then
      For Each objFilter In .AutoFilter.Filters
        If objFilter.On Then
          bolFilter = True
          Exit For
        End If
      Next
      If bolFilter Then
        ActiveWorkbook.CustomViews.Add ViewName:="temporary", _
          PrintSettings:=True, RowColSettings:=True
        .ShowAllData
      End If
    End If
  End With
End Sub


Sub wiederherstellen()
  On Error Resume Next
  With ActiveWorkbook.CustomViews("temporary")
    .Show
    .Delete
  End With
End Sub



« Gruß Sepp »

Anzeige
ben. def. Ansichten
21.08.2012 11:04:13
Rudi
Hallo Sepp,
wenn es sich bei der Liste um eine 'richtige' Tabelle (Einfügen-Tabelle) handelt, funktionieren ben. def. Ansichten nicht. Zumindest in 2007. Ein riesiges Manko!
Gruß
Rudi
AW: Beispiel.
21.08.2012 11:48:11
Kersten
Hallo,
danke für die schnelle Antwort. Mit CustumViews habe ich schon experimertiert - und wieder verworfen.
Mein Sheet verfügt noch über eine Fensterfixierung.
Wenn ich ein CustomView erstelle und mit .Show wieder abrufe, verschiebt es mir mit Fensterfixierung auf die erste (mit Autofilter sichbare) Zeile/Spalte.
Selbst ein Neusetzen
If ActiveWindow.FreezePanes Then
ActiveWindow.FreezePanes = False
Range("B3").Select
ActiveWindow.FreezePanes = True
End If
brachte mit aktivem Autofilter kein Erfolg.
Grüße Kersten
Anzeige

301 Forumthreads zu ähnlichen 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 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
Anzeige
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
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
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
Anzeige

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
4
2
3
3
4
3
2
1
4
7
1
2
8
8
3
9
11
4
2
4
4
5
3
2
4