ich wende mich mit folgenden Problem an euch:
Ich möchte bei geöffneter Userform auf der Tabelle1 per Makro über Button Sortierungen vornehmen. Bei der Selectanweisung bleibt das Makro hängen. Ich verwende nachstehenden Code. Danke für eure Hilfe.
Private Sub CommandButton6_Click()
'Sheets("Berechnung").Select
'Calculate
'Range("d2:e100").Select
' Selection.Sort Key1:=Range("e3"), Order1:=xlDescending, Key2:=Range("d3") _
' , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
' False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
' :=xlSortNormal
End Sub
lg Alex