AW: Fehlerprotokoll
25.10.2015 18:15:04
Lorenz
Hallo Nepumuk
Modul:
Sub Sortieren()
Application.ScreenUpdating = False
With wksKalender.Range("ABN14:ABN97")
.Copy wksWert.Range("ABN14:ABN97")
.Copy wksWinter.Range("ABN14:ABN97")
.Copy wksWE_F.Range("ABN14:ABN97")
Application.CutCopyMode = False
End With
With wksKalender.Range("A14:ABN97")
.Sort Key1:=.Cells(14, "ABN"), order1:=xlAscending, Header:=xlGuess
End With
With wksWert
.Activate
.Range("H14:ABN97").Select
.Sort.SortFields.Add Key:=Range("ABN14:ABN97"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With wksWert.Sort
.SetRange Range("H14:ABN97")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A13").Select
End With
With wksWinter
.Activate
.Range("H14:ABN97").Select
.Sort.SortFields.Add Key:=Range("ABN14:ABN97"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With wksWinter.Sort
.SetRange Range("H14:ABN97")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A13").Select
End With
With wksWE_F
.Activate
.Range("H14:ABN97").Select
.Sort.SortFields.Add Key:=Range("ABN14:ABN97"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With wksWE_F.Sort
.SetRange Range("H14:ABN97")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A13").Select
End With
With wksKalender.Range("A14:A97")
.Copy wksWert.Range("A14:A97")
.Copy wksWinter.Range("A14:A97")
.Copy wksWE_F.Range("A14:A97")
Application.CutCopyMode = False
End With
wksKalender.Activate
Application.ScreenUpdating = True
End Sub
Zusatzinfo:
in "wksKalender.Range("ABN14:ABN97")" wird die Sortierreihenfolge manuell eingegeben.
Gruss
Lorenz