Microsoft Excel

Herbers Excel/VBA-Archiv

Kopieren und wieder einfügen

Betrifft: Kopieren und wieder einfügen
von: Christian
Geschrieben am: 22.04.2003 - 19:16:55

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???



  

Re: Kopieren und wieder einfügen
von: Florian Meyer
Geschrieben am: 22.04.2003 - 20:11:46

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
von: Christian
Geschrieben am: 22.04.2003 - 20:15:43

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

 

Beiträge aus den Excel-Beispielen zum Thema "Kopieren und wieder einfügen"