Ich habe folgendes Problem.
Ich kopiere mit diesem Code ein sheet aus einen anderen Workbook.
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 auch wunderbar funktioniert.
Allerdings möchte ich hier nur die Werte, nicht aber die Funktionen sowie Formate kopieren. Was muss ich an diesem Code ändern, damit dies 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
Danke
Markus