Clever-Excel-Forum

Hallo zusammen,

ich habe mal wieder ein Problem beim Umsätzen meiner Vorstellung :D, da mir hier schon so oft geholfen wurde versuche ich auch heute mein Glück :).

Im Anhang findet ihr eine Datei mit einer zeile wo wir ein Datum stehen haben und einer Spalte wo wir "Haushaltsaufgaben" stehen haben.
Ich hätte nun gerne das ich in das grüne Feld ein Datum eingeben kann, einen Knopf drücke und dann filtert er mir genau dieses Datum auf "X".

zusätzlich funktioniert das Drehfeld in der Originaldatei nicht... ich denke hier gibt es bestimmt auch einen Trick oder? Wink

Wäre schön wenn jemand hier einen helfenden rat hat...

Lg Seeqi

Hallo,

Bei Deinem Spinner hast Du ja keine Aktion hinterlegt.
Wenn Du folgendes Makro zuordnest sollte das funktionieren:

Code:
Sub Drehfeld1_BeiÄnderung()

    wert = ThisWorkbook.Sheets(1).Shapes("Spinner 1").ControlFormat.Value

    If wert = 10001 Then

        ThisWorkbook.Sheets(1).Range("C5") = ThisWorkbook.Sheets(1).Range("C5") + 1

    ElseIf wert = 9999 Then

        ThisWorkbook.Sheets(1).Range("C5") = ThisWorkbook.Sheets(1).Range("C5") - 1

    End If

    ThisWorkbook.Sheets(1).Shapes("Spinner 1").ControlFormat.Value = 10000

End Sub

Folgender Code sollte Dir für Dein Beispiel die Filerung machen:

Code:
Sub Setz_Den_Filter()

    datum = ThisWorkbook.Sheets(1).Range("C5")

    spalte = 0

    For i = 1 To 14

        If datum = ThisWorkbook.Sheets(1).Cells(6, 3 + i) Then

            spalte = i + 1

            Exit For

        End If

    Next

    For i = 1 To 14 'Alle Rücksetzen

        ThisWorkbook.Sheets(1).Range("$C$6:$Q$23").AutoFilter Field:=i

    Next

    If spalte > 0 Then

        ThisWorkbook.Sheets(1).Range("$C$6:$Q$23").AutoFilter Field:=spalte, Criteria1:="<>"

    End If

End Sub

LG
Norbert

Die Variablen mussten noch definiert werden aber ansonsten passt das super gut :D Vielen Dank!

Seeqi

daNorbert

Seeqi