ich habe folgendes Makro für die selektion und sortieren erstellt,
habe aus dem Forum zusammengebastelt:
Dim schluss As Long
If TypeName(ActiveSheet) "Worksheet" Then Exit Sub
schluss = IIf(IsEmpty(Cells(Rows.Count, ActiveCell.Column)), _
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row, Rows.Count)
bis hier wird der Bereich richtig angezeigt.
Dim filter
filter= Range(Cells(5, ActiveCell.Column), Cells(schluss, ActiveCell.Column)).Select
Selection.Sort Key1:=Range(filter, schluss), OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
was habe ich Falsch gemacht ?
gr Kurt P