.SetRange Range(Range(myKeyRng.Offset(, 1 - myKeyRng.Column), myKeyRng).Address)
'.SetRange Range(Range(myKeyRng.Offset(, 2 - myKeyRng.Column), myKeyRng).Address) ' Spalte 2
'.SetRange Range(ActiveSheet.UsedRange.Address)
'.SetRange Range(Range(rngSort, myKeyRng).Address)
|