Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Auto-Sortierfunktion

Betrifft: Auto-Sortierfunktion von: Hans
Geschrieben am: 07.09.2020 07:31:07


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

Betrifft: AW: Auto-Sortierfunktion
von: Hans
Geschrieben am: 07.09.2020 07:32:30

Ich bekomme hier immer die Fehlermeldung 1004 Methode Range für das Worksheet fehlgeschlagen. Ich möchte mit dem CommandButton mehrere Tabellen sortieren, sozusagen eine Standardsortierung per Schaltfläche einfügen.