Code Umstellen
Peter
ich hab da diesen code der meine Tabelle sortiert. jetzt soll er aber noch eine Tabelle sortieren und das soll so aussehen. Wenn ich die Mappe öffne wird die Tabelle1 sortiert wenn ich jetzt auf Tabelle2 wechsle soll die sortiert werden. Ich benutze eine UF um die Daten einzutragen. Wenn ich dann die UF schließe wird der Code ausgefürt damit die Namen sortiert werden. Wenn ich die UF schließe dann sollte ich auch in der Tabelle bleiben wo ich Arbeite. Kann mir bitte einer helfen?
mfg Peter
Sub Auto_Open()
Worksheets("Geburtstage").Unprotect ("")
Application.Goto Reference:="Geburtstage"
Selection.Sort Key1:=Range("V118"), Order1:=xlAscending, Key2:=Range( _
"AA118"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom
Application.Goto Reference:="C21:C34"
Columns("T:AI").Select
Selection.EntireColumn.Hidden = True
Application.Goto Reference:="R1C1"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub