Forums Neueste Beiträge
 

Range-Swap

02/11/2009 - 13:13 von Christoph Basedau | Report spam
Hallo

ich habe ein Dokument mit etlichen gleichstrukturierten Tabellen.
Nun möchte ich jeweils den Inhalt der Zellen aus Spalte
2 in den Zeilen 4+5 austauschen und alle Formatierungsinformationen
mitnehmen.

Mein aktueller Code tauscht nur den Text aus:

If intTeamRow > 0 Then
If intProjectRow > intTeamRow Then
oTable.Rows(4).Cells(1).Range.Text = "Projekt:"
oTable.Rows(4).Cells(2).Range.Text = strProjectValue
oTable.Rows(5).Cells(1).Range.Text = "Teamgröße:"
oTable.Rows(5).Cells(2).Range.Text = strTeamValue
End If
End If

Wie kann ich 2 Range Objekt austauschen?

MfG
Christoph
 

Lesen sie die antworten

#1 Christoph Basedau
02/11/2009 - 14:07 | Warnen spam
Christoph Basedau schrieb:

ich habe ein Dokument mit etlichen gleichstrukturierten Tabellen.
Nun möchte ich jeweils den Inhalt der Zellen aus Spalte
2 in den Zeilen 4+5 austauschen und alle Formatierungsinformationen
mitnehmen.

Wie kann ich 2 Range Objekt austauschen?



Habe es jetzt mit Range.Copy, Range.Paste und einer
zusàtzlichen Hilfstabelle am Ende des Doks, die
abschliessend wieder entsorgt wird, gelöst.

MfG,
Christoph

Ähnliche fragen