Clever-Excel-Forum

Hallo Freunde

ich möchte aus einem anderen Workbook ein Sheet mit der folgenden Funktion kopieren, was nebenbei bemerkt auch wunderbar funktioniert.

Code:
Public Sub kopieren()

Dim QWB As Workbook

Dim ZWB As Workbook

Dim QWS As Worksheet

Dim ZWS As Worksheet

Workbooks.Open "C:\Users\Ich\Desktop\FbH\Quelle.xlsm"

Set QWB = Workbooks("Quelle.xlsm")

Set ZWB = ThisWorkbook

Set QWS = QWB.Worksheets("TabelleQuelle")

Set ZWS = ZWB.Worksheets("TabelleZiel")

'QWS.Copy

QWS.Copy ZWS.Cells(1, 1)

End Sub

allerdings möchte ich hier nur den Inhalt ohne Formeln und Formate kopieren.
Was muss ich ändern, damit das so klappt.
Zusatzfrage: Wie kann ich den User absolut setzten, ich meine das C:\Users\ich,
damit ich diese Datei an Kollegen versenden Kann und dies bei diesen auch funktioniert. Die Darstellung c:\Users\%user% klappt nicht.
Herzlichen Dank für eure Mühe.
Susmark.

Hallo Susmark,

(27.02.2017, 10:41)susmark schrieb: [ -> ]ich möchte aus einem anderen Workbook ein Sheet mit der folgenden Funktion kopieren, was nebenbei bemerkt auch wunderbar funktioniert.

QWS.Copy ZWS.Cells(1, 1) funktioniert mit Sicherheit nicht!

(27.02.2017, 10:41)susmark schrieb: [ -> ]Zusatzfrage: Wie kann ich den User absolut setzten, ich meine das C:\Users\ich,
damit ich diese Datei an Kollegen versenden Kann und dies bei diesen auch funktioniert. Die Darstellung c:\Users\%user% klappt nicht

Workbooks.Open Environ("USERPROFILE") & "\Desktop\FbH\Quelle.xlsm"

Gruß Uwe

Hallo susmark,

mal in Ergänzung zu Uwe's Antwort.

QWS.Copy kopiert ein Blatt. Ein Blatt bekommst Du aber nicht in ein Blatt bzw. in einen Bereich Smile

.
Du bekämst aber die Daten eines Bereichs in einen Bereich Smile

Die Daten eines ganzen Blattes wären Cells.

Dass Du keine Formeln und Formate übernehmen willst, entscheidest Du beim Einfügen. Dafür gibt es die Spezialpast oder besser gesagt
... PasteSpecial Paste:=xlValues

susmark

Kuwer

schauan