AW: Makrorecorder! (owT)
16.09.2018 18:22:49
Daniel
Der Macrorecorder ist gut und recht, habe damit diesen Code aufgezeichnet:
Sub sortierung()
' Makro1 Makro
ActiveWorkbook.Worksheets("Liste").ListObjects("Tabelle1").sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Liste").ListObjects("Tabelle1").sort.SortFields.Add _
Key:=Range("Tabelle1[[#All],[LN]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Liste").ListObjects("Tabelle1").sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Dieser wird in einem Modul abgelegt.
Venn ich nun aber diesen code wiefolgt in Diese Arbeitsmappe ablege bekomme ich einen Laufzeitfehler
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Worksheets("Liste").ListObjects("Tabelle1").sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Liste").ListObjects("Tabelle1").sort.SortFields.Add _
Key:=Range("Tabelle1[[#All],[LN]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Liste").ListObjects("Tabelle1").sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub