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

kopieren und nur werte einfügen? | Herbers Excel-Forum

Forumthread: kopieren und nur werte einfügen?

kopieren und nur werte einfügen?
06.01.2010 16:15:46
lisa


Hallo zusammen
Ich habe hier ein makro mit dem ich von einem zum anderen Worbook speichere.
Das klappt sehr gut und auch sehr schnell.
Wie bekomme ich es hier aber hin, dass nur die werte eingetragen werden??
Kann mir hier jemand helfen?
Hier mein Code: 

Private Sub CommandButton1_Click()
Range("A9:P" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy  _
Destination:= _
Workbooks.Open("P:\Gewichte\Änderungen oder Neuaufnahmen.xls").Sheets("Tabelle1").Range("A65536" _
).End(xlUp).Offset(1, 0)
End Sub
Gruß Lisa

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren und nur werte einfügen?
06.01.2010 16:22:44
Daniel
HI
du musst das kopieren ohne Zielangabe durchführen und dann im Zielbereich die Werte mit PasteSpecial einfügen:
dh anstelle von
Quelle.Copy Destination:=Ziel
so vorgehen:
Quelle.Copy
Ziel.PasteSpecial xlPasteValues
gruß, Daniel
AW: kopieren und nur werte einfügen?
06.01.2010 16:23:33
Hajo_Zi
Halo Lisa,
die zweite Datei ist schon auf. 
Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues       ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub

Anzeige
AW: kopieren und nur werte einfügen?
06.01.2010 16:26:29
lisa
Hallo zusammen
Das ging ja schnell ;-)
Ich werde es sofort ausprobieren
Danke Lisa
AW: kopieren und nur werte einfügen?
07.01.2010 11:55:54
lisa
Hallo
Ich konnte eure Vorschläge umsetzen und es klappt wie szu erwarten war hervorragend.
Herzlichen Dank!
Lisa

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
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Anzeige
Nur Werte mit selber Jahreszahl kopieren
Heinz

Hallo Leute
Habe heute schon wieder ein Problem !!
Ich hoffe es kann mir bitte wieder jemand weiterhelfen.
Ich habe in "Daten" I1 eine Jahreszahl stehen. In K31:K162 und in M31:M162 Daten mit TTT*TT.MMM.JJ stehen.
Nun möchte ich Daten die in K31:K162 gleich mit der Jahrsezahl in...
26.06.2009 16:13:15
Thread-ID: 1084642
13 Beiträge
Anzeige
Einfügen nur Werte als Standard
Heinz

Hallo,
ich möchte für eine spezielle Arbeitsmappe per VBA festlegen, daß grundsätzlich NUR Werte aus der Zwischenablage eingefügt werden können. Also müsste für alle Befehle (Menü Bearbeiten-Einfügen, Strg+V und das Einfügen-Symbol und ..?) gelten:
Private Sub Workbook_Activate() Sele...
18.09.2009 14:21:23
Thread-ID: 1103798
2 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
Anzeige
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 Beiträge
Nur Werte und Formate kopieren
edie

Hallo zusammen,
das nachfolgende Makro funktioniert soweit, leider werden die Formeln mitkopiert.
Ich schaffe es nicht, dass nur die Werte und die Formate kopiert werden.
Und so funktioniert es nicht: rngBereich.Copy wbTarget.Cells(intZeile, 1) .PasteSpecial,
da die Zelle nicht...
14.01.2010 21:56:59
Thread-ID: 1130061
3 Beiträge
Anzeige
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
Anzeige

Infobox / Tutorial

Werte aus Excel kopieren und nur als Werte einfügen

Schritt-für-Schritt-Anleitung

Um in Excel nur Werte zu kopieren und einzufügen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne die VBA-Entwicklungsumgebung: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf VBAProject (DeinWorkbookName) > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub WerteKopieren()
   Dim Quelle As Range
   Dim Ziel As Range

   ' Setze die Quelle und das Ziel
   Set Quelle = ThisWorkbook.Worksheets("Tabelle1").Range("A1:A10") ' Beispielbereich
   Set Ziel = Workbooks.Open("P:\Gewichte\Änderungen oder Neuaufnahmen.xls").Worksheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0)

   ' Kopiere die Werte
   Quelle.Copy
   Ziel.PasteSpecial Paste:=xlValues
   Application.CutCopyMode = False
End Sub

  4. Passe den Code an: Ändere die Range-Angaben, um den gewünschten Bereich zu kopieren.

  5. Führe das Makro aus: Drücke F5, um das Makro zu starten.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs"

    • Lösung: Stelle sicher, dass der Arbeitsblatname und die Dateipfade korrekt sind. Überprüfe, ob die Datei geöffnet ist.

  • Fehler: Werte werden nicht eingefügt

    • Lösung: Verwende PasteSpecial xlValues, um sicherzustellen, dass nur die Werte eingefügt werden.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, in Excel nur Werte zu kopieren und einzufügen:

  1. Manuelles Einfügen: Kopiere den Bereich, gehe zu dem Zielbereich und wähle Start > Einfügen > Einfügen Werte.
  2. Tastenkombinationen: Nach dem Kopieren kannst du STRG + ALT + V drücken, um das Dialogfeld "Inhalte einfügen" zu öffnen und V für Werte auszuwählen.

Praktische Beispiele

Hier sind einige Beispiele, wie du Excel VBA verwenden kannst, um nur Werte zu kopieren und einzufügen:

  1. VBA für einen bestimmten Bereich:

    Sub BereichKopieren()
   ThisWorkbook.Worksheets("Tabelle1").Range("B1:B10").Copy
   Workbooks("ZielDatei.xls").Worksheets("Tabelle1").Range("B1").PasteSpecial Paste:=xlValues
End Sub

  2. Kopieren einer gesamten Spalte:

    Sub SpalteKopieren()
   ThisWorkbook.Worksheets("Tabelle1").Columns("A").Copy
   Workbooks("ZielDatei.xls").Worksheets("Tabelle1").Columns("A").PasteSpecial Paste:=xlValues
End Sub

Tipps für Profis

  • Verwende Application.ScreenUpdating = False, um die Bildschirmaktualisierung während des Kopiervorgangs zu deaktivieren, was die Ausführungsgeschwindigkeit erhöht.
  • Füge eine Fehlerbehandlung mit On Error Resume Next hinzu, um eventuelle Laufzeitfehler zu ignorieren.

FAQ: Häufige Fragen

1. Wie kann ich nur die Formate kopieren? Du kannst PasteSpecial mit xlFormats verwenden, um nur die Formate zu kopieren.

2. Was ist der Unterschied zwischen "Kopieren" und "Einfügen" in VBA? "Kopieren" erstellt eine Kopie des ausgewählten Bereichs, während "Einfügen" die Daten an einem neuen Ort platziert. Mit PasteSpecial kannst du steuern, ob du Werte, Formate oder beides einfügst.

Beliebteste Forumthreads (12 Monate)

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