ich stehe mal wieder auf dem Schlauch, habe folgenden Code. Habe eine Liste mit Personaldaten die ich nach bestimmten Kriterien kopieren möchte. In Feld B36 steht meine Kostenstelle drin, diese Daten sollen erhalten bleiben der Rest dann gelöscht.
Sheets("Personalplanung 2011").Select
Selection.AutoFilter Field:=2, Criteria1:="B36", Operator:=xlAnd
Sheets("Personalplanung 2011").Rows("57:57").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=2
Range("B55").Select
Sheets("Personalplanung 2011").Visible = xlVeryHidden
Nur irgendwie habe ich mich da dumm angestellt, kann mir da jemand helfen ? Vielleicht gibt es auch einen eleganteren Weg
Danke euch
Lars