Anzeige
Archiv - Navigation
1608to1612
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

Kopieren von einem Worksheet zum Anderen

Kopieren von einem Worksheet zum Anderen
26.02.2018 15:32:32
einem
Hallo zusammen,
ich habe ein kurioses Problem:
Ich habe ein Makro geschrieben, mit dem ich eine Reihe von Excel-Listen innerhalb unseres Netzwerks nacheinander öffne, den Inhalt kopiere und ihn dann in die dafür vorgesehenen Blätter der Mappe einfüge, in der sich auch das Makro befindet.
Das funktionierte super, bis ich in den Excel-Dateien, die ich da auslese, Formeln eingefügt habe, die sich auf Tabellen beziehen...
Seitdem kriege ich - sobald ich das Makro starte - unzählige Fehlermeldungen über "fehlende Verknüpfungen".
Hatte schon den Copy_Destination-Befehl in Verdacht, aber mit Copy-PasteValues passiert dasselbe.
Hier der Code (Variablen sind alle vorher deklariert):
Application.ScreenUpdating = False
TestAnzahl = Worksheets("System2").Range("A65536").End(xlUp).Row
' Das ist ein Arbeitsblatt, in dem die Pfade liegen
For ZählerC = 1 To TestAnzahl
Name = Sheets("System2").Cells(ZählerC, 1)
Datei = Sheets("System2").Cells(ZählerC, 2)
kürzel = "C/" & Datei & ".xlsx"
' habe den Pfad verkürzt; in ECHT ist der länger :-)
Set QuelleDA = Workbooks.Open(kürzel)
Set ZielHIER = ThisWorkbook 'Die Mappe, in der der Code liegt
QuelleDA.Sheets("Tabelle1").Range("A1:Z500").Copy _
Destination:=ZielHIER.Sheets(Name).Range("A1:Z500")
' wie gesagt: SO hatte ich dasselbe Problem
' QuelleDA.Sheets("Tabelle1").Range("A1:Z500").Copy
' ZielHIER.Sheets(Name).Range("A1:Z500").PasteSpecial Paste:=PasteValues
QuelleDA.Close SaveChanges:=False
Set QuelleDA = Nothing
Set ZielHIER = Nothing
Next ZählerC
Application.ScreenUpdating = True

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren von einem Worksheet zum Anderen
26.02.2018 15:35:16
einem
Kopiere nicht die Zelle sondern nur die Inhalte, Werte.
Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues       ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: Kopieren von einem Worksheet zum Anderen
26.02.2018 16:55:04
einem
Super. Danke.
Das hat es gebracht

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige