Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellenbereich kopieren und einfügen

Zellenbereich kopieren und einfügen
Peter
Guten Tag
Ich will innerhalb einer Tabelle den Bereich F2:I2 mit B2:E2 tauschen (alles Werte, keine Formeln enthalten).
Dies habe ich versucht mit kopieren von F2:I2, dann einsetzen bei B2 und anschliessend die Inhalte der nach hinten geschobenen Zellen löschen.
Irgend etwas klappt noch nicht, wenn ich den Code Schritt für Schritt laufen lasse, sehe ich, dass bei der Zelle .Insert shift:=xlToRight nichts passiert.
Wer kann mir weiterhelfen?
Danke und Gruss, Peter
With Sheets(strName)
.Range("F2:I2").Copy
.Range("B2").Select
.Insert shift:=xlToRight
.Range("j2:m2").ClearContents
End With

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: so funktionierts
07.12.2010 11:40:56
Peter
Gruss, Peter
With Sheets(strText2)
.Range("F2:i2").Cut
.Range("B2").Insert shift:=xlToRight
End With
oder so
07.12.2010 17:13:42
Erich
Hi Peter,
wenn es nur um Werte geht, dann auch so:

Dim arrW
With Sheets(strText2)
arrW = .Range("F2:I2")
.Range("F2:I2") = .Range("B2:E2").Value
.Range("B2:E2") = arrW
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: oder so
07.12.2010 17:25:06
Peter
Hallo Erich
Ich habs gleich probiert und es funktioniert!
Danke und Gruss, Peter
Anzeige

358 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige