Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - Filter für ausgewählte Bereiche
Normale Version: VBA - Filter für ausgewählte Bereiche
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

joshua

31.10.2017, 12:39
Guten morgen Leute!

Ich versuche momentan mittels VBA eine Prozedur zu schreiben, welche mir nach Betätigen eines Buttons ausgewählte Bereiche bzw. Zeilen ausblendet.

Die Tabelle besteht im vereinfachten Zustand aus einer Spalte A, welche das Datum aufführt. In Spalte B und C sind Kennzahlen bzw. Faktoren.
Es soll nun geprüft werden, welcher Wert für das aktuelle Datum in Spalte B ist und entsprechend nur diese Zeilen mit dem Wert aufgelistet werden.

Ich habe es bereits über spezielle Filter probiert, aber dies ist wohl nicht mit einem Button zu verknüpfen.
Habe auch bereits über die Makroaufzeichnung versucht weiterzukommen, jedoch ohne Erfolg :/


Hat jemand eine Idee bzw. hilfreiche Ansätze?
Beste Grüße

Jonas0806

31.10.2017, 12:51
Hallo,

(31.10.2017, 12:39)joshua schrieb: [ -> ]Es soll nun geprüft werden, welcher Wert für das aktuelle Datum

Wieso nicht einfach Datumsfilter>Heute ??

Klaus-Dieter

31.10.2017, 13:05
Hallo,

wenn ich das richtig verstehe, sollen beide Spalten nach dem Buchstaben J gefiltert werden. (Stand heute).

Werner.M

31.10.2017, 13:39
Hallo Joshua,

meinst du so?


Gruß Werner

Jonas0806

31.10.2017, 14:08
Hallo,

oder einfach

PHP-Code:
Option Explicit

Private Sub CommandButton1_Click()
    Dim searchCrit
    With ListObjects(1)
        searchCrit = WorksheetFunction.VLookup(CLng(Date), .Range, 2, False)
        .Range.AutoFilter field:=2, Criteria1:=searchCrit
        .Range.AutoFilter field:=3, Criteria1:=searchCrit
    End With
End Sub 

joshua

31.10.2017, 15:55
Vielen Dank für eure Beiträge ! (:

Tut mir leid, dass ich mich so grob ausgedrückt habe.
Die erste Schaltfläche filtert nach dem Wert für heute in Spalte B und eine zweite Schaltfläche für die Werte in Spalte C.

@Werner: Also fast, nur das der Filter auf eine Spalte jeweils bezogen wird (:

@Jonas: Sitze an deinem Code noch!
Bekomme Ihn leider nicht zum Laufen :/


Code:
Private Sub CommandButton1_Click()
    Dim searchCrit
    With Worksheets("Tabelle1")
        searchCrit = WorksheetFunction.VLookup(CLng(Date), .Range("B:B"), False)
        .Range.AutoFilter field:=2, Criteria1:=searchCrit
        .Range.AutoFilter field:=3, Criteria1:=searchCrit
    End With
End Sub

Jonas0806

31.10.2017, 16:07
Hallo,

der Sverweis (Vlookup) benötigt mindestens einen 2-Spaltigen Bereich.

joshua

31.10.2017, 16:17
Vielen Dank, also genauso wie in der Excel-Funktion.

Folgende Prozedur ist leider weiterhin fehlerhaft:

Code:
Private Sub CommandButton1_Click()
   Dim searchCrit
   With Worksheets("Tabelle1")
       searchCrit = WorksheetFunction.VLookup(CLng(Date), .Range("A4:B369"), False)
       .Range.AutoFilter field:=2, Criteria1:=searchCrit
   End With
End Sub
"VLookup-Eigenschaft kann nicht zugeordnet werden."

schauan

31.10.2017, 16:44
Hallöchen,

SVERWEIS benötigt auch noch die Spalte, aus der was geholt werden soll.

joshua

31.10.2017, 17:03
(31.10.2017, 16:44)schauan schrieb: [ -> ]Hallöchen,

SVERWEIS benötigt auch noch die Spalte, aus der was geholt werden soll.

Genau, mit der Variable searchcrit wird das heitige Datum als Suchkriterium bestimmt.
Mit ".Range.AutoFilter field:=2" wird doch der SpaltenIndex bestimmt, analog zur SVERWEIS-Funktion.
Bzw. was genau übersehe ich? (:
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - Filter für ausgewählte Bereiche