ich habe vor ein paar Wochen hier einen Code von Euch bekommen:
Private Sub CommandButton6_Click()
Range("$B$36:$G$55").Select
Selection.Sort Key1:=Range("B36"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Ausdruck2").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("Eingabe").Select
End Sub
Jetzt habe ich das Problem, dass aus meiner UserForm heraus die Daten nicht automatisch sortiert werden. Wenn ich allerdings einfach ein Rechteck direkt in die Exceltabelle packe und dem ein Makro mit dem obigen Code zuweise, dann klappt das automatische Sortieren!!!
Kann mir jemand einen Tipp geben, wie ich es auch aus meiner UserForm hinbekomme?
Vielen Dank für Eure Hilfe!!!
Gruß,
Michael S.