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

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

Anzeige

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 :)
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige