gibt es eine Möglichkeit untenstehendes Makro so zu verändern, dass ich auf
Sheet "Fragen" sortieren kann ohne das Sheet mit Select aktivieren zu müssen?
Hab schon mit >With Worksheets Fragen So funktionierts mit selektieren:
Sub Sort_FRAGEN()
variableALL = Worksheets("Fragen").Range("C1").Value
Worksheets("Fragen").Range("B3:K" & variableALL).Name = "All"
Application.ScreenUpdating = False
Worksheets("Fragen").Select
Range("All").Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("D3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Application.CutCopyMode = False
Worksheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub
Danke für alle Antworten
Klaus