Danke Ralf für deine Antwort,
Das wäre nun das Makro, aber wie bekomme ich das auf meiner Menüleiste in Excel, bei jedem Start, egal welche Datei geöffnet ist?
ActiveWorkbook.Worksheets("230031_Ursprung") der Dateiname ändert sich doch immer, bei jeder neuen Maschinendatei.
Sub Makro1()
'
' Makro1 Makro
'
'
Rows("2:1048576").Select
Application.Width = 1238.4
Application.Height = 874.017391304348
ActiveWorkbook.Worksheets("230031_Ursprung").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("230031_Ursprung").Sort.SortFields.Add2 Key:=Range( _
"C2:C77"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"20268700,20269100,20121000,20101900,20269500,20272900,20285900,20285700,20273000,20273100,20273200,20286000,20285800,20273300,20273400,20272800,20271700,20271800,20271900,20272000,20272100,20272200,20129000,20272300,20272400,20271600,20271500,20272500,20272600,20272700,20273900,20274300,20274200,20290500,20274000,20103400,20291200,20289100,20291300,20291400,20291500" & _
",20254900,20255000,20101600,20105600,20128100" & _
""
, DataOption := xlSortNormal
ActiveWorkbook.Worksheets("230031_Ursprung").Sort.SortFields.Add2 Key:=Range( _
"A2:A77"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("230031_Ursprung").Sort
.SetRange Range("A1:E77")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|