Excel VBA Kopie Blatt ohne Link zum Originalblatt

Question

Ich habe zwei Excel-Dateien; Datei_1 und Datei_2. Datei_1 hat zwei Blätter; Blatt_A und Blatt_B. Daten aus Datei_2 werden in Blatt_A (in Datei_1) übertragen.

Ich habe einen VBA-Code an eine Schaltfläche in Sheet_B angehängt, die Daten aus Sheet_A in Sheet_B kopiert. Der Code funktioniert einwandfrei, behält jedoch die Links von Datei_1 bei.

Ich möchte nur die Daten kopieren und behalten ihre Formatierung, ohne die Links zu halten. Wie kann ich das erreichen?

Der Teil meines Code, der die Daten von Sheet_A in Sheet_B Kopien unten:

' Check the Record Sheet to ensure the data is not already there 
    Set CheckForDups = recordSht.Range(recordSht.Cells(1, 1), recordSht.Cells(1, lCol)).Find(What:=maxCustomerRng.Offset(-1, 0).Value, LookIn:=xlValues) 

    ' If CheckForDups is Nothing then the date was not found on the record sheet. Therefore, copy the column 
    If CheckForDups Is Nothing Then maxCustomerRng.EntireColumn.Copy Before:=recordSht.Cells(1, lCol + 1) 

Answer 1

Ich glaube, Sie müssen einfügen Werte auf Ziel:

diese Hilfe

If CheckForDups Is Nothing Then 
    maxCustomerRng.EntireColumn.Copy 
    recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteValues 
    recordSht.Cells(1, lCol + 1).PasteSpecial xlPasteFormats 
End If 

Hoffnung.