AW: da fehlt noch der Tabellenbezug...
21.12.2009 14:52:50
Ben
Hallo Tina
Danke für die Unterstützung. Mit diesem Code funktioniert die Sortierung, auch wenn das Arbeitsblatt ausgeblendet ist:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook.Worksheets("Alle_Hidden")
.Range("A1:C20").Sort Key1:=ThisWorkbook.Worksheets("Alle_Hidden").Range("A20"), Order1:= _
xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Gruss
Ben