Thema: 2 Zellwerte blattübergreifend tauschen (verbundene Zellen)

Hallo Forum,

ich komme bei einem Problem nicht weiter. Ich hätte gerne ein Makro, dass mir 2 Zellenwerte miteinander tauscht. Problem:

- Es handelt sich bei den Zellen jeweils um verbundene Zellen,
- und es soll auch blattübergreifend funktionieren.

Das Makro kann alleine stehen oder als Ereignismakro fungieren (z.B. Worksheet_BeforeDoubleClick). Die 10 Zellen mit Wert stehen auf jedem Sheet an der gleichen Stelle (siehe Mappe). Es gibt 8 Sheets („Druck 1“ bis „Druck 8“)

Beispiel: Ich gehe mit Doppelklick auf Sheet(„Druck 1“) auf Zelle R5 (Wert 13) und danach auf Sheet(„Druck 3“) auf Zelle R35 (Wert 1). Beide Werte sollen jetzt getauscht werden. Danach erfolgt ein Rücksprung auf Sheet(„Druck 1“).

Oder: Ich gehe mit Doppelklick auf Sheet(„Druck 1“) auf Zelle R5 (Wert 13) und danach auf der gleichen Seite auf Zelle R20 (Wert 9076). Beide Werte sollen getauscht werden.

Ich bin für jeden Input dankbar.
https://www.herber.de/bbs/user/170792.xlsm

Vielen Dank
Klaus

Guckst du hier:

https://www.herber.de/bbs/user/170793.xlsm

Hier eine bessere Version:
https://www.herber.de/bbs/user/170794.xlsm

Auch Dir ein herzliches Dankeschön Onur. Funzt auch perfekt!
Gruß
Klaus F.

Hi
probier mal das im BeforeDoubleKlick-Event des Tabellenblatts:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)



Dim Rng As Range

Set Rng = Range("R5,R10,R15,R20,R25,R30,R35,R40,R45,R50,AO18")

Dim Zelle As Range

Dim X As Variant

Cancel = True

If Not Application.Intersect(Target, Rng) Is Nothing Then

    On Error Resume Next

    Set Zelle = Application.InputBox("Zielzelle auswählen", Type:=8)

    On Error GoTo 0

    If Not Zelle Is Nothing Then

        X = Target(1).Value

        Target(1).Value = Zelle(1).Value

        Zelle(1).Value = X

    End If

End If



Set Rng = Nothing

End Sub

Gruß Daniel

Herzlichen Dank Daniel! Die Inputbox war das Puzzle was mir fehlte ...
Gruß
Klaus F.