Nach der Suche im Forum nach einer Lösung für das Tauschen von Zellinhalten, bin ich auf viele Lösungen gestoßen, die nicht so befriedigend waren. Auch mit dem Code-Schnippsel 008998 hat es nich geklappt.
Aber jetzt hab' ich's (ausnahmsweise war die "Hilfe" von Excel hilfreich) ! Vielleicht können das noch mehr brauchen.
Einfach 2 Zellen markieren und das Makro aufrufen (bei mir mit STRG+SHIFT+T).
Schöne Grüße aus der Pfalz,
Hans-Peter
-------------- Schnipp -----------------------------
Sub TauscheZellen()
'Der Inhalt der markierten Zellen wird vertauscht
'by Hans-Peter Bauer, hapeba@web.de
Dim a(2)
NumberOfSelectedAreas = Selection.Areas.Count
If NumberOfSelectedAreas <> 2 Then
MsgBox "Bitte genau 2 Zellen markieren ! "
End
End If
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
End
Else
i = 0
For Each singleArea In rangeToUse.Areas
a(i) = singleArea
i = i + 1
Next
i = 1
For Each singleArea In rangeToUse.Areas
singleArea.Value = a(i)
i = i - 1
Next
End If
End Sub
-------------- Schnapp -----------------------------