Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

sheet kopieren nur Werte

sheet kopieren nur Werte
27.02.2017 09:44:03
Markus
Hallo Freunde.
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sheet kopieren nur Werte
27.02.2017 10:39:31
ChrisL
Hi Markus
Public Sub kopieren()
Dim QWB As Workbook
Dim ZWB As Workbook
Dim QWS As Worksheet
Dim ZWS As Worksheet
Workbooks.Open "C:\Users\" & Environ("Username") & "\Desktop\FbH\Quelle.xlsm"
Set QWB = Workbooks("Quelle.xlsm")
Set ZWB = ThisWorkbook
Set QWS = QWB.Worksheets("TabelleQuelle")
Set ZWS = ZWB.Worksheets("TabelleZiel")
ZWS.Range(QWS.UsedRange.Address).Value = QWS.UsedRange.Value
QWB.Close
End Sub

cu
Chris
AW: sheet kopieren nur Werte
27.02.2017 10:48:15
Markus
Hallo Chris.
Super. Hätte ich gleich gefragt, ich hätte mir einen halben Tag sparen können.
Danke.
Markus
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige