sheet kopiern nur Inhalt

[susmark]

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.

[Kuwer]

Hallo Susmark,

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!

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

[schauan]

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 .
Du bekämst aber die Daten eines Bereichs in einen Bereich 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