Verknüpfung lösen
15.06.2005 07:43:15
GeorgK
nachdem ich seit gestern in allen möglich Foren und Archiven nach einer Lösung gesucht habe, möchte ich mein Problem hier mal vorstellen.
Mit dem nachfolgenden Makro versende ich per E-Mail eine Kopie eines Tabellenblatts. Es werden keinerlei Formatierungen übernommen. Über Str.+# sind keine Verknüpfungen zu erkennen. Trotzdem zeigt er mir unter Bearbeiten eine Verknüpfung an. Die Verknüpfung bezieht sich auf die Ursprungsdatei. Da der E-Mailversand per Makro gestartet wird, kann ich die Verknüpfung durch Bezug auf diese kopierte Datei auch nicht auflösen. Da das ganze auf verschiedenen Rechner genutzt wird und die Kopie immer einen anderen Namen, MappeXX, erhält, weiss ich hier nicht mehr weiter.
Ich brauche so etwas, wie Kopie ohne externe Verknüpfung.
Hier mal der Makro, vielleicht kann mir ja jemand helfen
Sub SendTab_2()
Application.ScreenUpdating = False
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets(Range("S1").Value).Copy
ActiveWorkbook.SendMail wks.Range("S2").Value, wks.Range("S3").Value
ActiveWorkbook.Close savechanges:=False
Sheets("Start").Select
Application.ScreenUpdating = True
End Sub
Vielen Dank und Grüße
Georg