[Excel] Nach Kopieren (via VBA) die Bezüge falsch :/

JesusFreak777

Erfahrenes Mitglied
Hallo,

so in etwa schaut mein modul aus (nur das wichtigste wird angezeigt)

Code:
Sub neue_datei()
    prim = ActiveWorkbook.Name
    tpath = ActiveWorkbook.Path
    mod1 = ThisWorkbook.Path & "\Modul1.bas"
    Application.VBE.ActiveVBProject.VBComponents("Modul1").Export mod1
    Sheets("karte").Select
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    Dim neuName As String
    neuName = "schaf"
    ActiveWorkbook.SaveAs Filename:=tpath & "\Daten\" & neuName & ".xlsm", _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    seco = ActiveWorkbook.Name
        Workbooks(prim).Sheets("daten").Copy _
            After:=Workbooks(seco).Sheets(1)
    Application.ScreenUpdating = True
    Workbooks(prim).Sheets("Übersicht").Select
    Workbooks(prim).Sheets("daten").Visible = False
    Workbooks(prim).Sheets("karte").Visible = False
    Application.ScreenUpdating = True
   
    With ActiveWorkbook
      Application.VBE.ActiveVBProject.VBComponents.Import mod1
    End With
    Sheets("karte").Select
    ActiveWindow.SmallScroll Down:=-9999
    Range("C39").Select
    ActiveWorkbook.Save
   Kill mod1
End Sub

mein ergebnis ist fogendes...
meine bezüge "VORHER" KARTE:A1 = Daten!A1 "JETZT" KARTE:A1 = [Dateiname.xlsm]Daten'!A1
auch meine Buttons und anderen bezüge haben jetzt einen verweiß auf die urdatei...

kann ich das irgendwie verhindern?

Vielen Dank für jeden Tipp
 
Zurück