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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen