Auto-Sortierfunktion
07.09.2020 07:31:07
Hans
Private Sub CommandButton12_Click()
ActiveWorkbook.Worksheets("Transmitterkästen").ListObjects("Tabelle1").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Transmitterkästen").ListObjects("Tabelle1").Sort. _
SortFields.Add Key:=Range("Tabelle1[[#All],[Anl.]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Transmitterkästen").ListObjects("Tabelle1"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Dampfbeheizungen").ListObjects("Tabelle5").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Dampfbeheizungen").ListObjects("Tabelle5").Sort. _
SortFields.Add Key:=Range("Tabelle5[[#All],[Bezeichnung]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Dampfbeheizungen").ListObjects("Tabelle5").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Kühlwasser").ListObjects("Tabelle57").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Kühlwasser").ListObjects("Tabelle57").Sort. _
SortFields.Add Key:=Range("Tabelle57[[#All],[Schicht]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Kühlwasser").ListObjects("Tabelle57").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Hydranten").Name = "Hydranten"
ActiveWorkbook.Worksheets("Hydranten").ListObjects("Tabelle578").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Hydranten").ListObjects("Tabelle578").Sort. _
SortFields.Add Key:=Range("Tabelle578[[#All],[Nummer]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hydranten").ListObjects("Tabelle578").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sugotiefpunkte").ListObjects("Tabelle5789").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Sugotiefpunkte").ListObjects("Tabelle5789").Sort. _
SortFields.Add Key:=Range("Tabelle5789[[#All],[Nummer]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sugotiefpunkte").ListObjects("Tabelle5789"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Augenspülflaschen").ListObjects("Tabelle10").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Augenspülflaschen").ListObjects("Tabelle10").Sort. _
SortFields.Add Key:=Range("Tabelle10[[#All],[Nummer]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Augenspülflaschen").ListObjects("Tabelle10"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("HD-Kondensomaten").ListObjects("Tabelle57812").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("HD-Kondensomaten").ListObjects("Tabelle57812").Sort. _
SortFields.Add Key:=Range("Tabelle57812[[#All],[Nummer]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("HD-Kondensomaten").ListObjects("Tabelle57812"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("zusätzliche Punkte").ListObjects("Tabelle513").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("zusätzliche Punkte").ListObjects("Tabelle513").Sort. _
SortFields.Add Key:=Range("Tabelle513[[#All],[Schicht]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("zusätzliche Punkte").ListObjects("Tabelle513"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Aufteilung und Ausdrucken").Select
End Sub