Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten Kopieren - Bezug zu anderer Datei löschen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige

Infobox / Tutorial

Daten Kopieren: Bezug zu anderer Datei löschen


Schritt-für-Schritt-Anleitung

Um den Bezug zu einer anderen Datei beim Kopieren von Daten in Excel zu entfernen, kannst du das folgende VBA-Makro verwenden. Es kopiert die Daten und entfernt gleichzeitig die unerwünschten Verknüpfungen.

  1. Öffne die Excel-Datei, in die du die Daten kopieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code in das Modul ein:

    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
  5. Führe das Makro aus, um die Daten zu kopieren und die Verknüpfungen zu entfernen.

Mit diesem Makro wird der Bezug zu einer anderen Datei gelöscht, und es bleibt nur die lokale Referenz in der neuen Datei.


Häufige Fehler und Lösungen

  • Fehler: Die Formeln in der neuen Datei verweisen weiterhin auf die alte Datei.
    Lösung: Stelle sicher, dass du das .ChangeLink korrekt im Makro verwendest. Überprüfe, ob die Dateipfade in strMap1 und strMap2 korrekt sind.

  • Fehler: Das Makro funktioniert nicht, weil die Dateien nicht geöffnet sind.
    Lösung: Beide Excel-Dateien müssen geöffnet sein, bevor du das Makro ausführst.


Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch manuell vorgehen:

  1. Kopiere die Daten aus der alten Datei.
  2. Füge die Daten in die neue Datei ein, indem du STRG + ALT + V drückst und „Werte“ auswählst. Dadurch werden nur die Werte eingefügt, ohne die Formeln und Verknüpfungen.
  3. Wenn du die dpo Formel nicht benötigst, kannst du sie einfach entfernen, nachdem du die Werte eingefügt hast.

Praktische Beispiele

Ein typisches Szenario könnte sein, dass du Daten aus einer alten Lohnabrechnungsdatei (z.B. DPO 2009 v. 5.05.xls) in eine neue Datei übertragen möchtest. Mit dem obigen Makro wird der Bezug zur alten Datei entfernt, sodass du nur die benötigten Daten in der neuen Datei hast. Dies ist besonders nützlich, wenn du regelmäßig Berichte erstellst und die Daten von einer zentralen Quelle beziehen musst.


Tipps für Profis

  • Nutze die dpo formel in Excel, um Berechnungen direkt auf die kopierten Daten anzuwenden, bevor du die Verknüpfungen entfernst.
  • Erstelle eine Sicherungskopie deiner Daten, bevor du umfangreiche Änderungen vornimmst.
  • Experimentiere mit verschiedenen Excel-Funktionen, um deine Daten effizient zu verwalten und zu analysieren.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass alle Verknüpfungen entfernt werden?
Durch die Verwendung des .ChangeLink-Befehls im VBA-Makro werden alle Verknüpfungen zur alten Datei entfernt.

2. Was passiert, wenn ich das Makro ausführe und die alte Datei nicht geöffnet ist?
Das Makro wird nicht korrekt funktionieren. Stelle sicher, dass beide Dateien geöffnet sind, um die Daten erfolgreich zu kopieren und die Verknüpfungen zu entfernen.

3. Kann ich das Makro auch für andere Dateiformate verwenden?
Das Makro wurde für Excel-Dateien entwickelt. Für andere Formate sind möglicherweise Anpassungen notwendig.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige