ich habe mir ein Makro aufgezeichnet. Das Blatt in dem sich das Makro befindet ist eine Vorlage. Hier ist alles iO.
Jetzt kopiere ich die Vorlage und das Makro arbeitet nicht mehr.
Ich vermute es liegt daran das im Code das Blatt mit "Vorlage" benannt ist und die Kopie natürlich anders heißt. Nur der Weg zum lösen fehlt mir.
Könnt Ihr mmir bitte Helfen?
------
Private Sub CommandButton1_Click()
' niO_Sortieren Makro
' Sortiert die Spalte Menge niO von höchster Anzahl zu kleinster Anzahl von niO Teilen
Range("A28:L116").Select
ActiveWindow.SmallScroll Down:=-69
ActiveWorkbook.Worksheets("Vorlage").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Vorlage").Sort.SortFields.Add Key:=Range( _
"G28:G116"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Vorlage").Sort
.SetRange Range("A28:L116")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F28").Select
ActiveWindow.SmallScroll Down:=6
End Sub