VBA 2 Zellen austauschen

10/03/2009 - 12:14 von Andreas Killer | Report spam
Juhu. :-)

Gibt es eigentlich einen Trick um 2 Zellen samt Inhalt und Formaten zu
tauschen?

Nur den Inhalt ist easy:

Temp = Cells(1, 1)
Cells(1, 1) = Cells(2, 2)
Cells(2, 2) = Temp

aber das ganze andere Farb-/Format-/Hyperlink-Zeugs?

Kann man nicht irgendwie ein "Set Temp = New Range" erzeugen und den
ganzen Krempel von Cells(1,1) nach Temp schieben?

Andreas.
 

Lesen sie die antworten

#1 Alexander Wolff
10/03/2009 - 13:20 | Warnen spam
Die Tastatur von Andreas Killer wurde wie folgt gedrückt:
Juhu. :-)

Gibt es eigentlich einen Trick um 2 Zellen samt Inhalt und Formaten zu
tauschen?

Nur den Inhalt ist easy:

Temp = Cells(1, 1)
Cells(1, 1) = Cells(2, 2)
Cells(2, 2) = Temp

aber das ganze andere Farb-/Format-/Hyperlink-Zeugs?

Kann man nicht irgendwie ein "Set Temp = New Range" erzeugen und den
ganzen Krempel von Cells(1,1) nach Temp schieben?



3 Vorgehensweisen sind Dir bekannt:

1. .Copy [Destination]
2. Das Einzel-Abklappern aller Eigenschaften, wie neulich von Dir gezeigt

(Bei den beiden sollte man evtl. jenseits aller Diskussion, ob die Methode
schön sei, mal einfach einen Performance-Test machen.)

3. Darüber hinaus von Dir vermutet oder gewünscht: Objektzuweisungen an
Zellen

Ich vermute, dass eine schöne Sub für 2. mit optionalen Argumenten mit
Default FALSE der richtige Weg wàre.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen