Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
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

Daten Kopieren - Bezug zu anderer Datei löschen

Daten Kopieren - Bezug zu anderer Datei löschen
Mister
Hallo und guten Morgen,
mit folgendem Makro von Erich G. kopiere ich Daten von einer Exceldatei in eine andere:
Sub CopyPers()
Dim strMap1 As String, strMap2 As String
strMap1 = ThisWorkbook.Sheets("PDF").Cells(2, 1) 'New
strMap2 = ThisWorkbook.Sheets("PDF").Cells(3, 1) 'Old
UnprotectAll
Workbooks(strMap2).Sheets("PersDaten").Cells.Copy Workbooks(strMap1).Sheets("PersDaten").Cells(  _
_
1, 1)
End Sub

Es klappt auch, aber die Formeln in der neuen Datei beziehen sich auf die alte Datei. z.B. Jetzt steht ='F:\LoHN\[DPO 2009 v. 5.05.xls]HB-Posten'!C5 , eigentlich soll nur ='HB-Posten'!C5 stehen.
Was läuft hier schief?
Gruß
Martin

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

Betreff
Benutzer
Anzeige
Verknüpfung nach Kopieren aufheben - ChangeLink
29.09.2009 09:18:17
Erich
Hi Martin,
probiers mal mit der Ergänzung:

Sub CopyPers()
Dim strMap1 As String, strMap2 As String
strMap1 = ThisWorkbook.Sheets("PDF").Cells(2, 1) 'New
strMap2 = ThisWorkbook.Sheets("PDF").Cells(3, 1) 'Old
UnprotectAll
With Workbooks(strMap1)
Workbooks(strMap2).Sheets("PersDaten").Cells.Copy .Sheets("PersDaten").Cells(1, 1)
.ChangeLink Name:=strMap2, NewName:=.Name, Type:=xlExcelLinks
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Verknüpfung nach Kopieren aufheben - ChangeLink
29.09.2009 09:38:27
Mister
Hallo Erich,
du bist der Retter in der Not. Es funktioniert perfekt. Danke vielmals!
Gruß
Martin
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige