sheet kopiern nur Inhalt
#1
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.
Top
#2
Hallo Susmark,

(27.02.2017, 11: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, 11: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
Top
#3
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste