Clever-Excel-Forum

Normale Version: VBA Selectionchange Wenn Autofilter
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Moin zusammen,

ich glaub habe hier ein ganz einfaches Problem, krieg es aber gerade nicht gelöst durch Dr. Google.
Eventuell ist es auch gar nicht möglich...

Also anbei eine Datei
[attachment=51035]

, wenn der Filter in Spalte E benutzt wurde soll im gelben Feld Ja stehen wenn nicht dann Nein (Rest kriege ich dann selber hin).

Wenn die Filter in C D F oder G benutzt wurde soll weiterhin Nein dort stehen.

Ist das möglich? :)

Liebe Grüße

Seeqi

Nachtrag:

Da ich gerade in Arbeit untergehe und jemand doch Lust hat das ganze Problem zu betrachten, würde ich hier auch nicht nein sagen :).

Hier eine weitere Datei:

[attachment=51036]

in der Zelle und den jeweiligen Monat sollen die Tage stehen des jeweiligen Monat die in Spalte C Gefiltert sind, getrennt durch ;

Also Quasi:
Januar            Februar
1;5;24            6;8;26

Aber wie gesagt sollte das "Ja" "Nein" Problem gelöst sein denke ich, dass ich das zweite Problem durch Google gelöst bekomme :)

Danke euch im voraus :)
Hallo,

ich habe Deine Datei nur im geschützten Modus gesehen und dann nachgebaut.

Vorschlag für die Abfrage, ob der Filter gesetzt ist:

Code:
Sub T_2()
Dim WS As Worksheet: Set WS = ActiveSheet
Dim Bo As Boolean

With WS.AutoFilter
    With .Filters
        For i = 1 To .Count
            Debug.Print "Spalte", i
            If .Item(i).On Then Bo = True
        Next i
    End With
End With
Cells(1, 5) = Bo
End Sub

Es fehlt die Abfrage "if = 5 then" (5 als fünfte Spalte = E)

mfg
Hallo Seeqi,

 ich möchte nicht verantworten, dass du untergehst.

Nach der Lösung von Fennek, hier ein Beispiel  für deinen weiteren Wunsch.

Schreibe diese Formel (geht auch eleganter) in die Zelle  J4 und kopiere sie nach links und unten

=WENN($C8="";"";WENN(MONAT($C8)=SPALTE()-9;TAG($C8)&";"&MONAT($C8)&";"&JAHR($C8)-2000;""))

Gruß Rudi'S
Moin, 19 

passt das so? 21
Super vielen Dank euch allen!

Das alles wird mir enorm helfen :)