Anzeige
Archiv - Navigation
1596to1600
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

Kopieren nur als Wert nicht als Formel

Kopieren nur als Wert nicht als Formel
11.12.2017 16:51:07
stxxx
Hallo zusammen,
ich habe bereits folgenden Code gebastelt. Dabei werden die Ergebnisse aus einem Tabellenblatt in die nächst mögliche freie Zeile eines anderen kopiert. Da dieser allerdings die Formel kopiert bekomme ich als Ergebnis jeweils #bezug. Wie muss ich den Code anpassen, dass nur der Wert ausgegeben wird?
Vielen Dank im voraus!!
Public Sub Test()
With Worksheets("Monatlich")
Call Worksheets("pivot").Cells(6, 7).Copy(Destination:= _
IIf(IsEmpty(.Cells(7, 3).Value), .Cells(7, 3), _
.Cells(7, .Columns.Count).End(xlToLeft).Offset(0, 1)))
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren nur als Wert nicht als Formel
11.12.2017 16:56:20
Hajo_Zi
nach folgendem Prinzip

Sub Werte()
'   Formeln ersetzen durch Werte ohne Formate
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False         'Zwischenspeicher löschen
End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Kopieren nur als Wert nicht als Formel
11.12.2017 17:01:54
Michael
Hallo!
Aus Acht lassend, dass man Dein intendiertes Vorhaben evtl. anders angehen könnte, hilft es Dir vielleicht (für das grds. Code-Verständnis), das ganze mittels (sprechender) Variablen zu lösen:
Public Sub Test()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQuelle As Worksheet: Set WsQuelle = Wb.Worksheets("pivot")
Dim WsZiel As Worksheet: Set WsZiel = Wb.Worksheets("Monatlich")
Dim ZelleZiel As Range
With WsZiel
Set ZelleZiel = IIf(IsEmpty(.Cells(7, 3).Value), .Cells(7, 3), _
.Cells(7, .Columns.Count).End(xlToLeft).Offset(0, 1))
ZelleZiel = WsQuelle.Cells(6, 7).Value
End With
End Sub
LG
Michael
Anzeige
AW: Kopieren nur als Wert nicht als Formel
11.12.2017 17:08:22
stxxx
Hallo zusammen,
vielen lieben Dank, es funktioniert. Jetzt versuch ich das ganze noch nachzuvollziehen.
Schönen Abend :)

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige