Immer wieder: Diese Datei enthält Verknüpfungen zu anderen Datenquellen

[Andrea-braucht-Hilfe]

Hallo,
ich bin mal wieder verzweifelt, weil ich einfach den Fehler nicht finden kann.
Ich hab auch schon mehrere gegooglete Seiten im Internet nachvollzogen, z.b.
https://support.office.com/de-de/article...313a532ff1
aber alles was da angeboten wird zeigt mir kein Ergebnis bzw. Grund für diese Meldung.

Was ich tue:
Ich habe eine Exceldatei  (-xlsm), die soll ausgefüllt werden.
Danach werden bestimmte Felder per Makro versandt(per mail)
und danach per Makro nur das aktive sheet auf einen bestimmtenn Pfad als .xlsx gespeichert.
Das funktioniert auch alles, aber wenn ich die neue Datei dann aufrufe kommt diese Fehlermedung... aber das zeigt mir auch nicht an, was denn jetzt genau eine Verknüpfung enthält..

Es kann eigentlich nur an den Makros liegen. aber wo?

Hier mal meine (zusammengesuchten) makros


Andrea

Code:

Sub Schaltfläche8_Klicken()
Dim oOL As Object
  Dim oOLMsg As Object
  Dim oOLRecip As Object
  Dim sAddress As String
  sAddress = Range("C72").Value
  Set oOL = CreateObject("Outlook.Application")
  Set oOLMsg = oOL.CreateItem(0)
  With oOLMsg
     Set oOLRecip = .Recipients.Add(sAddress)
     .Subject = "Change of Position " & Range("D6") & ", " & Range("D7") & " [#" & Range("D4") & "]"
     .Body = Range("C74").Value
     .Importance = 1
     .Send
  End With
  oOLRecip.Resolve
  Set oOLRecip = Nothing
  Set oOLMsg = Nothing
  Set oOL = Nothing
End Sub
Sub Schaltfläche9_Klicken()
Dim strDateiname As String, strPfad_Dateiname As String
   Dim strAktuellerPfad As String
   Dim strNeuerPfad As String
   Dim strBlattname As String
   Dim strNeueDatei As String
   Dim strAlteDatei As String
       
   strNeuerPfad = "J:\IT\Change-User"
   strAlteDatei = ActiveWorkbook.Name
   
   strDateiname = Replace(Range("D71"), ":", " -") 'Doppelpunkt ersetzen
   strAktuellerPfad = ActiveWorkbook.Path

   If Len(strDateiname) = 0 Then
       MsgBox ("Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
   Else
       ActiveSheet.Select 'aktuelles Blatt markieren
       'strBlattname = ActiveSheet.Name
       
       ActiveSheet.Copy 'Kopiert nur das AKTUELLE Blatt in eine neue Datei !
       
       ActiveSheet.Shapes("Schaltfläche 1").Delete 'Knopf löschen
       ActiveSheet.Range("k26").Delete 'Datum löschen
       ActiveSheet.Range("k22").Delete 'Code löschen
       strPfad_Dateiname = strNeuerPfad & "\" & strDateiname & ".xlsx"
       ActiveWorkbook.SaveAs strPfad_Dateiname
       ActiveWorkbook.Close
       'ChDir strAktuellerPfad 'Verzeichnis wieder auf Ursprung wechseln
       MsgBox "Close WITHOUT saving NOW!"
   End If

End Sub

Code:

Sub Schaltfläche7_Klicken()
Dim strDateiname As String, strPfad_Dateiname As String
   Dim strAktuellerPfad As String
   Dim strNeuerPfad As String
   Dim strBlattname As String
   Dim strNeueDatei As String
   Dim strAlteDatei As String
       
   strNeuerPfad = "J:\IT\Change-User"
   strAlteDatei = ActiveWorkbook.Name
   
   strDateiname = Replace(Range("C71"), ":", " -") 'Doppelpunkt ersetzen
   strAktuellerPfad = ActiveWorkbook.Path

   If Len(strDateiname) = 0 Then
       MsgBox ("Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
   Else
       ActiveSheet.Select 'aktuelles Blatt markieren
       'strBlattname = ActiveSheet.Name
       
       ActiveSheet.Copy 'Kopiert nur das AKTUELLE Blatt in eine neue Datei !
       
       ActiveSheet.Shapes("Schaltfläche 1").Delete 'Knopf löschen
       ActiveSheet.Range("k26").Delete 'Datum löschen
       ActiveSheet.Range("k22").Delete 'Code löschen
       strPfad_Dateiname = strNeuerPfad & "\" & strDateiname & ".xlsx"
       ActiveWorkbook.SaveAs strPfad_Dateiname
       ActiveWorkbook.Close
       'ChDir strAktuellerPfad 'Verzeichnis wieder auf Ursprung wechseln
       MsgBox "Close WITHOUT saving NOW!"
   End If

End Sub

[Guschti]

Grüezi Andrea

Ich denke eher, dass noch Formeln die auf ein anderes Blatt führen vorhanden sind.

Code:

    ActiveSheet.Range("A1:X100").Copy
    ActiveSheet.Range("A1:X100").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Du solltest solche Formeln dann in Werte umwandeln.

Gruss Guschti

[Andrea-braucht-Hilfe]

Hallo Guschti,
zuerst mal herzlichen Dank für die schnelle Antwort.  

Aber das, was du schreibst, ist ja genau mein Problem:ich kann einfach nichts finden, wo eine Formel wonaders hin verweisen könnte.
Alles, was ich hier an Formeln verwende, ist so was (und das ist auch schon das kompizierteste):

Code:

="-- Instruction for 1st Level: --"&ZEICHEN(10)
&"-- Delete all Instruction-lines and use helpline-Mailfunction to send --"&ZEICHEN(10)
&"-- information not only to requester but also to user. Remember to mark --"&ZEICHEN(10)
&"-- all changed Systems below before sending and closing the ticket. --"&ZEICHEN(10)
&ZEICHEN(10)
&ZEICHEN(10)
&"Adapt Change of Name Request:"&ZEICHEN(10)
&"Last Name of User "&D8&", formerly "&D6&", "&D7&ZEICHEN(10)
&"changed to '"&H16&"' within Applications:"&ZEICHEN(10)
&" (x) Outlook (Active Directory)"&ZEICHEN(10)
&" ( ) Other Applications"&ZEICHEN(10)
&ZEICHEN(10)
&"Kind regards,"&ZEICHEN(10)
&"Group IT Servicedesk"&ZEICHEN(10)

Was kann ich denn bloß machen, dass Excel mir zeigt, womit es nicht zufrieden ist???

Ähh... der Code den du da gepostet hast..  ist der dafür da "Formeln in Werte zu wandeln"? Soll ich den einfach an die Makros dranhängen?


Gruss Andrea

[Guschti]

Grüezi Andrea

Ähh... der Code den du da gepostet hast..  ist der dafür da "Formeln in Werte zu wandeln"? Soll ich den einfach an die Makros dranhängen?

Ja genau!
Vielfach ist es auch besser, anstatt ActiveSheets zu schreiben, wenn du den Blattnamen schreibst. Hier ist der Tabellenname "Hallo"
Und der Bereich A1:X100 ist an dein Blatt anzupassen.

Code:

    Sheets("Hallo").Range("A1:X100").Copy
    Sheets("Hallo").Range("A1:X100").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Gruss Guschti