Tauschen Sie Zellinhalte in Excel aus?

Für den speziellen Fall benachbarter rechteckiger Bereiche gleicher Größe können Sie die in beschriebene Methode verwenden diese Antwort auf eine ähnliche Frage.

1. Wählen Sie den rechten oder unteren Bereich
2. Drücken Sie Strg+X
3. Wählen Sie den angrenzenden Bereich (d.h. direkt oben oder links)
4. Drücken Sie Strg++ (die + befindet sich normalerweise über der Taste =, sodass dies übersetzt wird Strg+Verschiebung+=)

Hinweis Sie können dieselbe Prozedur verwenden, um ganze benachbarte Zeilen oder Spalten auszutauschen.

Mit einfach meine ich entweder eine Tastenkombination oder einen Menüpunkt, ohne das Kopieren in temporäre Zellen oder das Schreiben von VBA-Skripten oder ähnlichem. Ich suche nach einer Möglichkeit, nur zwei Zellen auszuwählen und auf einen Menüpunkt zu klicken oder eine Tastenkombination zu drücken, mit der der Inhalt ausgetauscht wird.

Warum diese Einschränkung auferlegen? Das Erstellen eines Makros macht dies trivial. Soweit ich weiß, kann es nicht anders gemacht werden. Sie können das Makro einer Schaltfläche zuweisen oder Hotkey.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

Nein. Es gibt keine Möglichkeit, den Inhalt von zwei Zellen in Excel auszutauschen, ohne dafür ein eigenes Makro zu schreiben.

BEARBEITEN: Es hört sich so an, als gäbe es jetzt eine einfache Möglichkeit, Zellinhalte in neueren Versionen von Excel auszutauschen, daher ist diese Antwort wahrscheinlich jetzt veraltet.

Wählen Sie den ersten Satz von Zellen aus, die ausgetauscht werden sollen, und drücken Sie Strg+x:

Wählen Sie die Zellen NEBEN denen aus, mit denen Sie tauschen möchten, und drücken Sie Strg++.

Sie können bis zu 25 Elemente in die Zwischenablage einfügen, sodass sie einfach mit ctr+tab oder cmd+tab mac ausgetauscht werden können

• Wählen Sie die untere Zelle aus, die Sie tauschen möchten
• Drücken Sie Strg+X und gehe zu der Zelle, mit der du tauschen möchtest
• Drücken Sie Strg+Verschiebung+=

Der swap wird ausgeführt

Ich habe diesen Beitrag gelesen, brauchte aber tatsächlich ein Makro, um vollständige Bereiche auszutauschen. Außerdem musste ich die Farben tauschen. Modifiziert das ursprünglich veröffentlichte Makro leicht, dies könnte für jemanden nützlich sein.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If


    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub