zle makro

Sub SwapSelectedCells_RYCHLE()

    If Selection.Areas.Count <> 2 Then Exit Sub

    Set range1 = Selection.Areas(1)
    Set range2 = Selection.Areas(2)

    If range1.Rows.Count <> range2.Rows.Count Or _
        range1.Columns.Count <> range2.Columns.Count Then Exit Sub

    range1Address = range1.Address
    range1.Cut
    range2.Insert Shift:=xlShiftToRight
    Range(range1Address).Delete Shift:=xlToLeft

    range2Address = range2.Address
    range2.Cut
    Range(range1Address).Insert Shift:=xlShiftToRight
    Range(range2Address).Delete Shift:=xlToLeft

End Sub