Hallo Sepus,
das unten stehende Makro musst du in den Code-Bereich der Tabelle kopieren (zum Öffnen unter Microsoft-Excel-Objekte die Tabelle doppelt anklicken).
Dann kannst du die erste Zelle durch Markieren festlegen, die zweite duch Strg+Anklicken.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lz = Cells(Rows.Count, 1).End(xlUp).Row + 1
If Selection.Areas.Count = 1 Then Exit Sub
If Selection.Areas.Count <> 2 Then
MsgBox "Genau die beiden zu tauschenden Zellen markieren!"
Exit Sub
End If
aze = Selection.Areas(1).Row
asp = Selection.Areas(1).Column
bze = Selection.Areas(2).Row
bsp = Selection.Areas(2).Column
Cells(lz, 1) = Cells(bze, bsp)
Cells(bze, bsp) = Cells(aze, asp)
Cells(aze, asp) = Cells(lz, 1)
Cells(lz, 1).Clear
End Sub
Gruß
Holger
|