Guten Morgen
Ich habe eine Arbeitsmappe, in welcher ich monatlich ein neues Arbeitsblatt einfüge. Dies mittels Kopieren. Nun habe ich einen VBA, welcher fürs 1. Blatt korrekt funktioniert, aber beim Neuen infolge anderem Registername (?) nicht funktionier.
Was muss ich ändern? Ganz grossen Dank für die Hilfe. Nachstehend das Makro.
Range("A2:E119").Select
ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("A3:A119") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("B3:B119") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("07.21").Sort
.SetRange Range("A2:e119")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub