Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Destination -nur Werte einfügen-

Forumthread: Destination -nur Werte einfügen-

Destination -nur Werte einfügen-
15.06.2018 12:03:27
Wilfried
Hallo,
mein Problem:
Ich suche eine Lösung um Werte in ein anderes Tabellenblatt zu kopieren.
Mein Programmcode kopiert allerdings alle Formate mit. Das möchte ich ändern.
Meine Versuche sind bisher erfolglos geblieben, auch PastSpecial habe ich probiert.
'Code funktioniert, allerdings mit Formaten:
Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range("A" & n + 2)
'meine erfolglosen Versuche um nur die Werte einzufügen
'was mache ich falsch?
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range(Range("A" & n + 2))
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range(Range("A" & n + 2).Value)
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range("A" & n + 2).Value
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy.PasteSpecial Paste:=xlPasteValues Destination:=Sheets(Kalenderblatt).Range("A" & n + 2)
Ich würde mich über einen Lösungsansatz sehr freuen.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Destination -nur Werte einfügen-
15.06.2018 12:18:53
Rudi
Hallo, 
Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy
Sheets(Kalenderblatt).Range("A" & n + 2).pastespecial xlpastevalues

Gruß
Rudi
AW: Destination -nur Werte einfügen-
15.06.2018 12:29:10
Wilfried
Danke Rudi,
der Code funktioniert einwandfrei!
Ich wünsche dir ein schönes Wochenende
Gruß
Wilfried
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Makro Probleme mit nur Werte einfügen
Michael

Hallo Zusammen,
meine Zielsetzung mit diesem Makro ist es immer die gleichen Zeilen bzw. nur deren Werte aus vielen unterschiedlich benannten Tabellenblättern eines Excelsheets in eines zu kopieren (Werte für Abschluß-aktuell). Mit Hilfe des Forums habe ich folgenden Makro gefunden, angepas...
08.10.2009 10:05:25
Thread-ID: 1108079
3 Beiträge
vba: nur die werte aus einer zelle ausschneiden
mike

sanfte grüße @all,
ich hätt gern mal folgendes problem:
ich möchte mir ne schaltfläche basteln, die bei aktivierung nur den inhalt aus zelle a1 ausschneidet, und dann in zelle b1 einfügt. sprich: die formatierung (farbe, rahmen, datentyp, usw..) soll von der aktion unberührt bleiben.
25.02.2010 07:16:11
Thread-ID: 1141297
4 Beiträge
Beim Kopieren per vba nur die Daten einfügen
sebibasti

Hallo liebe Excel-Freunde,
ich habe ein kleines Problem mit meinem VBA-Code:
Ich möchte per VBA Daten von einem Tabellenblatt ins andere kopieren, sodass der Text in dem Ziel-Tabellenblatt immer in die nächste freie Zeile kopiert wird.
Das funktionert auch gut.
Jetzt zu meinem...
02.03.2010 08:37:38
Thread-ID: 1142602
5 Beiträge
Automatisch nur "Werte" in Excel einfügen
Maximilian

Gibt es eine Möglichkeit, in einer bestimmten Tabelle automatisch immer nur zuzulassen, dass die reinen werter beim Paste eingefügt werden? Also ohne Formatierungen...
21.02.2013 08:38:21
Thread-ID: 1300371
4 Beiträge
Range - Copy Destination & PasteSpecial
Thomas

Hallo Erich & Bastian!
Vielen Dank für Eure Hilfe, leider war der Thread schon geschlossen (von mir?) und ich konnte nicht mehr auf Antworten...
Jedenfalls hat die Variante von Erich bestens funkioniert und ich werde sie auch verwenden, die von Dir Bastian leider nicht - zumindest i...
07.10.2013 22:21:30
Thread-ID: 1333486
4 Beiträge
VBA nur Werte und Formate kopieren -- Fehlersuche
WalterK

Hallo,
mit dem folgenden Code möchte ich einen Tabellenbereich in eine neu erstellte Datei kopieren, es sollen aber nur die Werte eingefügt und die Formate übernommen werden, aber keine Formeln.
1.) bei der Zeile PasteSpecial xlPasteValues kommt der Fehler: Fehler beim Kompilieren: Synt...
29.11.2013 14:04:21
Thread-ID: 1340565
7 Beiträge
Per Vba Werte einfügen mit Bedingung
Michael

Hallo zusammen.
Bin neu hier im Forum, bzw. hab ich bis jetzt nur migelesen.
Habe eine vielleicht etwas eigenwillige Aufgabenstellung :-)
Vielleicht kann mir ja jemand dabei helfen.
Habe eine Beispieldatei angehängt.
Im Tabellenblatt "Import" importiere ich mithelfe einens...
29.01.2014 20:06:59
Thread-ID: 1347297
3 Beiträge
Vom Orginal nur Werte in Kopie einfügen
Heinz

Hallo Leute im Forum
Im unteren Code wird vom Original eine Kopie erstellt.
Nur das Makro Sub WertKopieren
Funktioniert nicht.
Ich möchte in der Kopie nur Werte haben,keine Formel wie im Orginal
Könnte mir dazu bitte jemand weiterhelfen?
Gruß Heinz
Option Explicit<...
14.04.2014 21:07:03
Thread-ID: 1357302
4 Beiträge
Über Befehlsschaltfläche nur Werte einfügen
Seb

Hallo zusammen,
für eine Tabelle die voll mit Formeln, Makros, Formatierungen, etc. ist würde ich gern zum Schutz dieser nur Werte(W) über eine Schaltfläche in eine bestimmte Zelle, bzw. in betsimmte Zellen einfügen lassen.
Gibt es da was für? Google hat mir nicht wirklich geholfen....<...
23.07.2014 09:52:29
Thread-ID: 1371736
5 Beiträge
Anzeige
Excel VBA Makro Werte suchen,einfügen in Sheet2
braun


Sheets(1).Select
Sheets.Add After:=Sheets(1)
Sheets(2).Name = "TabelleABC"
Sheets(1).Select
Rows("1:2").Select
Selection.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(1).Select
'Startzeile
startzeile = 2
Spalte = 14
gr...
14.11.2014 10:32:22
Thread-ID: 1392347
4 Beiträge
VBA Neue Mappe öffnen und Werte einfügen
Django

Ich versteh nicht warum das nicht funktioniert:
Sub NeuesBlatt() Workbooks.Open Filename:="C:\Users\Desktop\Layouts\NeueMappe.xlsx" ThisWorkbook.Sheets("Blatt1").Range("A1:DZ184").Copy Workbooks("NeueMappe").Sheets("Layout").Range("A1:DZ184").PasteSpecial Paste:=xlValues End Sub Ich ,möcht...
10.06.2015 15:41:50
Thread-ID: 1430191
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Werte ohne Formate in Excel kopieren

Schritt-für-Schritt-Anleitung

Um in Excel nur die Werte aus einem Bereich in ein anderes Tabellenblatt zu kopieren, kannst du den folgenden VBA-Code verwenden. Dieser Code nutzt die .Copy-Methode und das PasteSpecial-Kommando, um nur die Werte zu übertragen, ohne die Formate:

Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy
Sheets(Kalenderblatt).Range("A" & n + 2).PasteSpecial Paste:=xlPasteValues

In diesem Beispiel ersetzt du Bereich1, Bereich2 usw. durch die tatsächlichen Zellbereiche, die du kopieren möchtest, und Kalenderblatt durch den Namen des Zielarbeitsblattes.

Häufige Fehler und Lösungen

Fehler 1: Kopieren der Formate Wenn du beim Kopieren auch die Formate überträgst, stelle sicher, dass du die PasteSpecial-Methode richtig verwendest. Die Zeile Sheets(Kalenderblatt).Range("A" & n + 2).PasteSpecial xlpastevalues ist die richtige Lösung.

Fehler 2: Falsche Range-Angaben Vergewissere dich, dass die Range-Angaben korrekt sind. Zum Beispiel kann ein Fehler bei Range("A" & n + 2) zu einem Laufzeitfehler führen, wenn n nicht definiert ist.

Alternative Methoden

Eine alternative Methode, um Werte ohne Formate zu kopieren, ist die Verwendung der Value-Eigenschaft. Hier ein Beispiel:

Sheets(Kalenderblatt).Range("A" & n + 2).Value = Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Value

Diese Methode ist besonders nützlich, wenn du nur mit Werten arbeiten möchtest und keine Formate benötigt werden.

Praktische Beispiele

  1. Werte in ein anderes Tabellenblatt kopieren: Wenn du die Werte aus Bereich1 in die Zelle A3 des Tabellenblatts Ziel kopieren möchtest, könnte dein Code so aussehen:

    Sheets("Ziel").Range("A3").Value = Range("Bereich1").Value

  2. Mehrere Bereiche zusammenfassen: Um mehrere Bereiche in ein Zielblatt zu kopieren, kannst du Union verwenden:

    Union(Bereich1, Bereich2).Copy
Sheets("Ziel").Range("A1").PasteSpecial Paste:=xlPasteValues

Tipps für Profis

  • Verwende Application.CutCopyMode = False, um den Kopiermodus nach dem Einfügen zu deaktivieren und die Auswahl zu entfernen.
  • Füge Error-Handling in deinen VBA-Code ein, um Laufzeitfehler besser zu verwalten. Beispielsweise:
On Error Resume Next
' Dein Code hier
On Error GoTo 0
  • Experimentiere mit der Option Explicit-Anweisung, um sicherzustellen, dass alle Variablen deklariert sind. Dies kann helfen, Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich nur die Werte aus einer Formel kopieren? Verwende PasteSpecial mit der Option xlPasteValues, um nur die Werte zu kopieren.

2. Was mache ich, wenn mein VBA-Code nicht funktioniert? Überprüfe deine Range-Angaben und stelle sicher, dass die Zielblätter existieren. Zudem kann ein Syntaxfehler im Code zu Problemen führen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige