Makro nach ababeitung in anderen blatt...
26.01.2017 09:57:41
Dirk
Ich habe ein Makro im Hintergrund laufen was in einen anderen Tabellenblatt eine automtische sortierung übernimmt. In dem Eingabeblatt soll aber der Cursor aber nach Eingabe immer auf der letzten Stelle wo ich was eingegeben habe stehen bleiben. Der Code sieht zur Zeit so aus
Sub Sortierung()
' Sortierung Makro
Application.ScreenUpdating = False
Range("C49:F72").Select
ActiveWorkbook.Worksheets("Hilfstabelle").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hilfstabelle").Sort.SortFields.Add Key:=Range( _
"F49:F72"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Hilfstabelle").Sort
.SetRange Range("C49:F72")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Einzelergebnisse 1+2").Select
Range("K10").Select
End Sub