Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Spezialfilter
zurück: Rahmen um den gesamten benutzten Bereich weiter: Excel 123.623 Zeilenwerte mappen und umbennen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Jul 2009, 19:46
Rufname:
Wohnort: Zürich

Spezialfilter - Spezialfilter

Nach oben
       Version: Office 2007

Hallo zusammen
Ich habe folgendes Problem:
In Spalte A4 - A22 habe ich verschiedene Datums. Mit einem Spezialfilter in Zelle A1 will ich die entsprechenden Datums filtern (Kriterium '>=10.01.09'). Über Daten->Erweitert kann ich mit dem Spezialfilter die Datums korrekt filtern. Wenn ich nun das gleiche als Makro aufzeichne und später ausführe so wird nichts gefiltert.
Makro:
Range("A4:A22").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("F8:F17"), Unique:=False

Hat mir jemand eine Idee, wie ich dieses Makro zum laufen bringe?

Vielen Dank für eure Unterstützung und
Grüss aus der Schweiz
Hans
Zero
Formeln, Diagramme und ein bisschen VBA


Verfasst am:
26. Jul 2009, 20:02
Rufname: Dennis
Wohnort: NDS


AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

HAllo

Steht denn in A1 und A4 definitiv die gleiche Überschrift?

_________________
Gruß zero
hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Jul 2009, 08:37
Rufname:
Wohnort: Zürich

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Guten morgen

Ja, in A1 + A4 steht definitiv die gleiche Überschrift.

Eine Idee?

Gruss
Hans
Phelan XLPH
Fortgeschritten


Verfasst am:
27. Jul 2009, 09:16
Rufname: Phelan

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Hallo,

teste das mal:

Code:
Sub DatumSpezialfiltern()
    Dim rngB As Range
    Dim rngK As Range
    Dim datDatum As Date
    Dim Vgl As String
   
    Set rngB = Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set rngK = Range("A1:A2")
   
    If IsDate(Right(rngK(2), 10)) Then
        datDatum = DateValue(Right(rngK(2), 10))
        Vgl = Left(rngK(2), Len(rngK(2)) - Len(Right(rngK(2), 10)))
        rngK(2) = Vgl & CLng(datDatum)
        Filtern rngB, rngK, Range("F1")
        rngK(2) = IIf(Vgl = "", datDatum, Vgl & datDatum)
    Else
        Filtern rngB, rngK, Range("F1")
    End If
End Sub

Sub Filtern(FilterBereich As Range, KriteriumBereich As Range, KpierBereich As Range)
    FilterBereich.AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=KriteriumBereich, _
    CopyToRange:=KpierBereich, _
    Unique:=False
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Jul 2009, 09:56
Rufname:
Wohnort: Zürich


AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Hallo

Vielen Dank für den Code. Das funktioniert wenn ich ein bestimmtes Datum eingebe. Sobald ich aber zb >=10.01.09 angebe funktioniert das Makro nicht mehr.
Wie könnte ich das am besten einbinden?

Vielen Dank schon mal für die Bemühungen.

Gruss
Hans
Phelan XLPH
Fortgeschritten


Verfasst am:
27. Jul 2009, 10:12
Rufname: Phelan

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Dann gib mal folgendes ein:

Zitat:
>=10.01.2009


Es werden auf 10Zeichen geprüft


oder ersetze überall wo ein 10 steht durch eine 8

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Jul 2009, 10:46
Rufname:
Wohnort: Zürich

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Hallo

Vielen Dank es funktioniert.

Gruss und schönen Tag noch.
Hans
hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Aug 2009, 21:18
Rufname:
Wohnort: Zürich

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Hallo zusammen
Wir haben jetzt den Spezialfilter erweitert. Leider funktioniert dann das Makro nicht mehr. Beispiel:
Datenbereich: B5 (Datum), C5 (Wert1), D5 (Wert2)
Suchkriterium: G5 (Datum von >=), H5 (Datum bis <=), I5 (Wert2)
Zielbereich: K5

Hat mir jemand eine Idee wie ich das Suchkriterium im Makro abändern muss?

Vielen Dank schon mal.

Schönen Abend.

Hans
Phelan XLPH
Fortgeschritten


Verfasst am:
12. Aug 2009, 21:52
Rufname: Phelan

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

DatenBereich besteht nur aus 3 Zellen?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Aug 2009, 22:14
Rufname:
Wohnort: Zürich

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Hallo "Glücksritter76"

Der Datenbereich besteht aus
Zellen B5-B.. (Datum), Zellen C5-C.. (Wert1), Zellen D5-D.. (Wert2)

Ich habe leider noch nicht die Freigabe um ein zip-File zu laden. Sobald ich diese habe, werde ich das Musterexcel hochladen.

Vielen Dank für deine Bemühungen.

Gruss
Hans
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Aug 2009, 02:06
Rufname: Phelan

AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Very Happy
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



DatumSpezialfiltern.xls
 Beschreibung:

Download
 Dateiname:  DatumSpezialfiltern.xls
 Dateigröße:  44.5 KB
 Heruntergeladen:  29 mal

hhoffi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Aug 2009, 21:44
Rufname:
Wohnort: Zürich


AW: Spezialfilter - AW: Spezialfilter

Nach oben
       Version: Office 2007

Hallo

Vielen Dank für Deine Bemühungen. So funktioniert es. Ich bin jetzt daran deinen Code in unsere Excel-Tabelle einzubauen. Ich habe aber einige Probleme da noch andere Makros laufen.
Vorerst nochmals danke.
Schönen Abend.
Hans
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datum filtern mit Hilfe von Spezialfilter 12 Gast170214 87 17. Feb 2014, 11:11
Gast Datum filtern mit Hilfe von Spezialfilter
Keine neuen Beiträge Excel Formeln: Spezialfilter Duplikate entfernen 2 Trinity1 194 20. Sep 2012, 13:11
Trinity2 Spezialfilter Duplikate entfernen
Keine neuen Beiträge Excel Formeln: Frage zu Spezialfilter und Tabellenblatt Design 3 chantal90 199 22. Mai 2012, 18:03
Thomas Ramel Frage zu Spezialfilter und Tabellenblatt Design
Keine neuen Beiträge Excel Formeln: Spezialfilter nach Datum, Format Standard 12 Nutzer42 389 22. Aug 2011, 13:40
Nutzer42 Spezialfilter nach Datum, Format Standard
Keine neuen Beiträge Excel Formeln: Excel Problem mit Spezialfilter 1 Affentheater. 792 03. März 2011, 22:25
madin Excel Problem mit Spezialfilter
Keine neuen Beiträge Excel Formeln: Formellösungen für Spezialfilter ohne Duplikate 4 Pia87 3877 17. Feb 2011, 10:30
sapor Formellösungen für Spezialfilter ohne Duplikate
Keine neuen Beiträge Excel Formeln: Spezialfilter TEXT mit* und mehrere Kritieren ausschließen 1 excelnoobie 2031 14. Sep 2010, 16:34
urs Spezialfilter TEXT mit* und mehrere Kritieren ausschließen
Keine neuen Beiträge Excel Formeln: Problem mit dem Spezialfilter 5 tobye 404 13. Aug 2008, 08:52
tobye Problem mit dem Spezialfilter
Keine neuen Beiträge Excel VBA (Makros): Spezialfilter mit dynamischen Kriterienbereich 2 Hennes22 1927 31. März 2008, 21:37
Hennes22 Spezialfilter mit dynamischen Kriterienbereich
Keine neuen Beiträge Excel Formate: Spezialfilter - wie ein Kriterium 2x verwenden? 2 mikxx 694 02. Jan 2008, 20:18
Günni Spezialfilter - wie ein Kriterium 2x verwenden?
Keine neuen Beiträge Excel VBA (Makros): Spezialfilter auslesen 5 Gast 392 23. Nov 2007, 14:33
Thomas Ramel Spezialfilter auslesen
Keine neuen Beiträge Excel Formeln: Teilergebnis 9 beim Spezialfilter 5 Melle 1978 5792 20. Jan 2007, 22:32
Melle 1978 Teilergebnis 9 beim Spezialfilter
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA