Kleinen Code vereinfachen
Jenny
ich habe heute folgenden Code erstellt und - da ich mit VBA noch sehr am Anfang bin - wollte Euch fragen, ob Ihr mir zeigen könnt, wie man den noch ein bisschen vereinfachen bzw. professioneller schreiben kann: :-)
Zusätzlich würde ich gerne in allen meinen Makros die Blattbezeichnungen neutral halten, so dass der Code auch beim Umbenennen funktioniert. Kann ich dazu in VBA einfach 1, 2, 3 usw. anstelle der Blattnamen und Anführungszeichen schreiben, also z.B. (3).Select statt ("Statistics").Select ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Sorts Statistics data by number of searches for same keyword before closing sheet
Sheets("Statistics").Visible = True
Sheets("Statistics").Select
Columns("A:B").Select
ActiveWorkbook.Worksheets("Statistics").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Statistics").Sort.SortFields.Add Key:=Range( _
"B2:B12"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Statistics").Sort.SortFields.Add Key:=Range( _
"A2:A12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Statistics").Sort
.SetRange Range("A:B")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
Sheets("Statistics").Visible = False
Sheets("Policy Search").Select
Range("D2").Select
ActiveWorkbook.Save
End Sub
Freue mich über jede Hilfe ! :-) LG,
Jenny