Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

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

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton
Bild


Betrifft: kopieren und nur werte einfügen?
von: lisa

Geschrieben am: 06.01.2010 16:15:46


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

Bild

Betrifft: AW: kopieren und nur werte einfügen?
von: Daniel
Geschrieben am: 06.01.2010 16:22:44
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

Bild

Betrifft: AW: kopieren und nur werte einfügen?
von: Hajo_Zi

Geschrieben am: 06.01.2010 16:23:33
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

Bild

Betrifft: AW: kopieren und nur werte einfügen?
von: lisa
Geschrieben am: 06.01.2010 16:26:29
Hallo zusammen
Das ging ja schnell ;-)
Ich werde es sofort ausprobieren
Danke Lisa

Bild

Betrifft: AW: kopieren und nur werte einfügen?
von: lisa
Geschrieben am: 07.01.2010 11:55:54
Hallo
Ich konnte eure Vorschläge umsetzen und es klappt wie szu erwarten war hervorragend.
Herzlichen Dank!
Lisa

 Bild
Excel-Beispiele zum Thema "kopieren und nur werte einfügen?"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren