Hallo VBA Forum,
eventuell könnt ihr mir helfen.
ich hab mir ein Makro aufgezeichnet das meine Tabelle von A10:O50 sortiert.
Die Zellen dürfen sich nicht verschieben, die Werte sollten als ganze Zelle verschoben werden
Das Makro:
Sub Makro3()
Rows("10:50").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range( _
"A2:A50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A10:O50")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Kann mir das jemand so umschreiben das sich die auswahl automatisch verlängert wenn ich einen neuen Eintrag mache?
Ich würde das ganze gerne als CommandKnopf speicher. Damit ich nur noch den Knopf betätigen kann.
Besten Dank
Molly
|