Makro durch Calcualte ausführen

[Andi0810]

Hallo Zusammen,

ich habe in der Zelle C1 die Funktion Teilergebnis stehen. Wenn sich der Wert der Zelle ändert, soll im gleichen Blatt ein Filter so gesetzt werden, dass Leerzeilen ausgeblendet werden. Der Filter ist an der 4ten Stelle (D1) des gefilterten Bereichs

Leider passiert bei mir gar nichts. Das Blatt in dem ich arbeite heißt "Hilfstabelle3"

Private Sub Worksheet_Calcualte()

If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub

Application.EnableEvents = False

Dim Liste As Range
Set Liste = Sheets("Hilfstabelle3").Range("A1:AP650")
Liste.AutoFilter Field:=4
Liste.AutoFilter
Liste.AutoFilter Field:=4, Criteria1:="<>", Operator:=xlFilterValues

Application.EnableEvents = True

End Sub

Hat jemand eine Idee?

Die Werte kommen aus anderen Laschen und ändern sich über Formeln, da die gesamte Datei zu groß ist hier nur die eine Lasche wie sie aussieht.

[snb]

CP: http://www.office-loesung.de/p/viewtopic.php?f=166&t=805014

[Andi0810]

@snb: ?

[WillWissen]

Hallo Andi,

snb hat uns darauf aufmerksam gemacht, dass du Crossposting (CP) ohne gegenseitiges Verlinken in den verschiedenen Foren betrieben hast. Lies dir dazu doch bitte diesen Hinweis durch: https://www.clever-excel-forum.de/misc.php?action=help&hid=10

[Andi0810]

Hallo zusammen,

ah ok wusst ich nicht, fange grade erst mit Excel an