Office: PasteSpecial mit Selection.Insert verbinden

ploeve · 12. Oktober 2005

Hallöchen zusammen!

Möchte gerne meinen Druckbereich in einem neuen Blatt zusammen kopieren.
Der Kopf und der Fuß sind Bereits vorhanden, dawischen möchte ich die Daten aus einem andren Sheet einfügen.
Wie klappt das am besten?

Habs bisher so:
Code:

Range("A15:H46").Select
Selection.Copy
Sheets("certificate printvorlage").Select
Selection.Insert Shift:=xlDown
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun möchte ich jedoch, dass nur die Werte dort reinkopiert werden, das heißt, ich müsst da irgendwie Pastespecial einbauen?!

Bitte um Hilfestellung!

Danke sehr
Matthias

:)

User · 14. Oktober 2005

Hallo Matthias,

in VBA kann zu 99% auf select verzichtet werden. Nach folgendem Ansatz.
Code:

Sub Werte_Format()
' Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
' Vorschlag Verbesserrung NoNet, es muß aber Tabelle1 aktiv sein
' 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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

ploeve · 14. Oktober 2005

Hallo Hajo!

Auf welches Select kann ich verzichten?
Range("A15:H46").Select
Sheets("certificate printvorlage").Select

oder meinst du gar auf beide?
d.h. Range("A15:H46").Select = Range("A15:H46")
?

Ja, werte kann ich so einfügen, nur wie schaff ich es, dass er nicht die darunterliegenden Zeilen überschreibt, sondern einfügt.
Ich könnte vorher die entsprechende Anzahl an zeilen einfügen und dann die Werte einfügen, finde jedoch, dass das mit Insert irgendwie gehen sollte?!

Vielen Dank

matthias

User · 14. Oktober 2005

Hallo Matthias,

Du hast nicht soviele select das bei 1% eins übrig bleibt.
Code:

Option Explicit

Sub Werte_Format()
' Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
' Vorschlag Verbesserrung NoNet, es muß aber Tabelle1 aktiv sein
' Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
' *****
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.Insert Shift:=xlDown ' Einfügen
.PasteSpecial Paste:=xlValues ' Werte eintragen
End With
Application.CutCopyMode = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ploeve · 14. Oktober 2005

Hallo!

Danke

Nein, ich glaub ich habs mit Select nocht nicht verstanden.
Heißt das, dass man das ".Select" am Ende ohne Schwirigkeiten weglassen kann, oder aber die gesamte Select-Anweisung?!
Eher ersteres, woher soll VBA sonst wissen, wo ich meinen Courser hingesetzt habe etc.?!

Danke

ploeve · 14. Oktober 2005

Leider fügt er mit
.PasteSpecial Paste:=xlValues
nicht bei [A1] sondern bei der Zelle ein, der unter dem .Insert Shift:=xlDown vorhanden ist.
D.h. wenn cih mit Insert 5 Zeilen einfüge, dann kopiert PastSpecial in Zelle A6.

was muss ich ändern, damit er auch ab A1 einfügt?

ploeve · 14. Oktober 2005

So klappts:
Code:

With Worksheets("certificate printvorlage").Range("A14")
.Insert Shift:=xlDown
End With
With Worksheets("certificate printvorlage").Range("A14")
.PasteSpecial Paste:=xlValues ' Werte
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 14. Oktober 2005

Hallo Matthias,

der Cursor ist kein Hund der überall rumgeführt werden muß.
Es reicht ein With
Code:

Option Explicit

Sub Werte_Format()
' Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
' Vorschlag Verbesserrung NoNet, es muß aber Tabelle1 aktiv sein
' Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
' *****
With Workbooks("Datei2.xls").Worksheets("Tabelle1")
.Range("A1").Insert Shift:=xlDown ' Einfügen
.Range("A1").PasteSpecial Paste:=xlValues ' Werte eintragen
End With
Application.CutCopyMode = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ploeve · 14. Oktober 2005

gracias *biggrin.gif*

Office: PasteSpecial mit Selection.Insert verbinden

PasteSpecial mit Selection.Insert verbinden

PasteSpecial mit Selection.Insert verbinden

PasteSpecial mit Selection.Insert verbinden

PasteSpecial mit Selection.Insert verbinden

PasteSpecial mit Selection.Insert verbinden - Similar Threads - PasteSpecial Selection Insert

MS ACCESS Insert into Foto in Datenbank

XLS: Selection merken und am Ende wieder herstellen

Selection by change

PasteSpecial

Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

Info über SQL INSERT INTO

funktionierenden INSERT