ist es möglich, mittels Makrobefehl die Inhalte zweier markierter Zellen auszutauschen und wenn ja, wie?
Besten Dank für eure Hilfe
mfg
Lena
Gruss aus Kärnten, Kurt
PS.: Feedback wäre nett, Danke.
Homepage: http://www.saualmteufel.perchten.at
Sub Inhalte_zweier_Zellen_austauschen()
Zellen_selektiert = 0
For Each cell In Selection
Select Case Zellen_selektiert
Case 0
Zelle1_Adresse = cell.Address
Zelle1_Inhalt = cell.Value
Zellen_selektiert = Zellen_selektiert + 1
Case 1
Zelle2_Adresse = cell.Address
Zelle2_Inhalt = cell.Value
Zellen_selektiert = Zellen_selektiert + 1
Case 2
Exit Sub
End Select
Next
If Zellen_selektiert = 2 Then
ActiveSheet.Range(Zelle1_Adresse) = Zelle2_Inhalt
ActiveSheet.Range(Zelle2_Adresse) = Zelle1_Inhalt
End If
End Sub