Hallo, bin relativ neu in dem Thema VBA deshalb hier meine Frage:
Ich möchte zwei Zellen markieren und Diese (sowie die 3 Zellen nebenan) per Dropdown miteinander tauschen. Das klappt mit unterem Code schon sehr gut.
Nun möchte ich aber, dass in Arbeitsblatt 2 der gleichen Arbeitsmappe genau das Gleiche geschieht, ohne dass ich extra die beiden Zellen in Arbeitsblatt 2 anwählen muss - Sprich eine Art Spiegelung auf Tabelle2.
Letztendlich suche ich also den Befehl, der mir die gleiche Zelle in Tabelle2 auswählt wie die markierte in Tabelle1.
Sub Rechteck19_Klicken()
Dim s(1 To 4) As Variant
With Selection
If .Areas.Count = 2 And .Cells.Count = 2 Then
s(1) = .Areas(1).Cells(1, 1).Value
s(2) = .Areas(1).Cells(1, 1).Offset(0, 3).Value
s(3) = .Areas(2).Cells(1, 1).Value
s(4) = .Areas(2).Cells(1, 1).Offset(0, 3).Value
'tauschen
.Areas(1).Cells(1, 1).Value = s(3)
.Areas(1).Cells(1, 1).Offset(0, 3).Value = s(4)
.Areas(2).Cells(1, 1).Value = s(1)
.Areas(2).Cells(1, 1).Offset(0, 3).Value = s(2)
End If
End With
End Sub
Schon mal vielen Dank für eure Hilfe.
Viele Grüße :)
|