27.02.2017, 11:41
Hallo Freunde
ich möchte aus einem anderen Workbook ein Sheet mit der folgenden Funktion kopieren, was nebenbei bemerkt auch wunderbar funktioniert.
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.
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
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.