Aktion auf 40 Tabellenblättern ausführen
Yvonne
habe mal eine Frage.
Ich habe die Aktion eine Spalte nach Datum sotiere. Ich möchte diese Aktion auf 40 Tabellenblättern ausführen.
Geht das oder muss ich jedesmal
tabelle1.activate
tabelle2.activate davorsetzen.
Hier mein Makro
Sub datum_sortieren()
' datum_sortieren Makro
Range("A4:A104876").Select
ActiveWorkbook.Worksheets("SG01S").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SG01S").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SG01S").Sort
.SetRange Range("A4:A104876")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End
Sub