irgendwie bekomme ich das nicht hin, dass es mir keine Verknüpfungen bildet.
Beim unteren (Auszug aus dem kompletten Code)Code, den ich auch aus dem Forum hier bekommen habe, bereite ich eine Datei vor, um diese dann mit Outlook zu versenden.
Klappt alles gut, aber es macht mir immer eine Verknüpfung rein zur Ursprungsdatei. Das möchte ich unterbinden, weiß aber nicht wie ich das in den Code bringen könnte, dass nur Werte eingefügt werden oder besser noch die Formeln in den Zellen H3 bis K15000 nur die Werte enthalten.
Vielleicht kann mir jemand helfen; DANKE schon mal..
Grüße
Elmar
Sub Excel_Workbook_via_Outlook_Senden_Stuttgart()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String, wksMail As Worksheet
Set wksMail = Sheets("RMBK70") 'zu versendendes Blatt
AWS = Environ("USERPROFILE") & "\" & wksMail.Name & ".xlsx"
'temporäre Mappe erstellen
wksMail.Copy
With ActiveWorkbook
ActiveSheet.Protect Password:="Bambus88", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True
' ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.Protect Password:="Bambus88"
.SaveAs AWS
.Close
End With