Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
244to248
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
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren und wieder einfügen

Kopieren und wieder einfügen
22.04.2003 19:16:55
Christian
Hi

mein Ansinnen scheint wahrscheinlich etwas ungewöhnlich, aber es soll nun mal so ausgeführt werden. Also zum Ansinnen:
Ich möchte, einen Spaltenbereich z.B.
Range("X6:Y100") Kopieren.
in diesem Spaltenbereich stehen lauter Summenformeln
Anschließent möchte ich in den selben Bereich nur die entsprechenden Werte wieder einfügen.
Mein Code:

Range(Cells(7, EnSp) & ":" & Cells(LZ - 15, EnSp + 1)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

EnSp=Vorher gesuchte Spalten Nummer
LZ=Vorher ermittelte letzte Belegte Zeile

Leider steigt die Anwendung ber der Range-Anweisung aus.

Kann mir jemand Helfen???



2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kopieren und wieder einfügen
22.04.2003 20:11:46
Florian Meyer

Hallo, Christian,

probiere einmal folgendes:

bereich=Cells(7, EnSp) & ":" & Cells(LZ - 15, EnSp + 1)
Range(bereich).Select

Gruß,

Florian.


Re: Kopieren und wieder einfügen
22.04.2003 20:15:43
Christian

Hab den Fehler gefunden. Was son Abendbrot alles Bewirkt.

Es lag am blöden Komma zw. Cells

Range(Cells(7, EnSp), Cells(LZ - 15, EnSp + 1)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

So funtkioniert es.

Ciao Christian

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige