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

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige