Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nur werte ohne Formeln einfügen

Nur werte ohne Formeln einfügen
30.10.2006 17:06:12
petra
Hallo zusammen,
habe folgenden Makro:
(Nur Auszug)
ActiveSheet.Range(ActiveSheet.Cells(175, 64), ActiveSheet.Cells(175, 64)).Copy
Sheets(oTarget).Activate
Sheets(oTarget).Cells(157, Col + 1).Select
ActiveSheet.Paste
Sheets("PEP").Activate
Jetzt will ich aber nur den Wert in Zelle (175, 64) kopieren und nicht die dahinter liegende Formel.
ich habe es mit
ActiveSheet.Range(ActiveSheet.Cells(175, 64), ActiveSheet.Cells(175, 64)).Copy
Sheets(oTarget).Activate
Sheets(oTarget).Cells(157, Col + 1).Select
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PEP").Activate
Aber das funktioniert nicht.
kann mir jemand weiterhelfen.
gruß
petra
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nur werte ohne Formeln einfügen
30.10.2006 17:13:24
IngGi
Hallo Petra,
viel zu kompliziert.....
Cells(175, 64).Copy
Sheets(oTarget).Cells(157, Col + 1).PasteSpecial Paste:=xlPasteValues
Wenn das nicht funktioniert, gibt es vielleicht ein Problem mit der Variablen Col.
Gruß Ingolf
AW: Nur werte ohne Formeln einfügen
30.10.2006 17:41:35
petra
prima.
funktioniert.
tausend dank!
liebe grüße
petra
Anzeige
AW: Nur werte ohne Formeln einfügen
30.10.2006 17:20:21
Daniel
Hallo
prinzipiel sollte das hier funktionieren:
Activesheet.cells(175,64).copy
sheets(otarget).cells(157,col+1).pastespecial xlpastevalues
sheets("Pep").activate
der Rest ist überflüssig.
Bei Pastespeical kann man gleich den Zielbereich mit angeben und muß in nicht vorher separat selektieren.
Wenn nur 1 Zelle kopiert werden soll, gehts auch direkt mit CELLS(x,y).Copy , Range ist dann überflüssig.
Wenns jetzt nicht geht, kanns eigentlich nur noch an der Variable "Col" liegen.
Noch eleganger wäre folgender Code, der genau das gleiche bewirkt:
sheets(otarget).cells(157,Col+1).value = cells(175,64).value
Gruß, Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige