Speichern ohne Verknüpfungen
01.06.2004 12:28:28
Thomas
seit einigen Tagen arbeite ich mit Office 2003. Es ist von der Sache her ein gutes Programm, aber nun hat eines meiner Makros das ich für ein Rechnungsprogramm habe einen Fehler.
Ich habe es beigefügt,
Sub Speichern()
Dim sDateiName$
Dim i
Application.ScreenUpdating = False
sDateiName = ThisWorkbook.Path & "\VP\" & Range("f12") & ".xls"
ActiveSheet.Copy
Range("A8:G49").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("f12") = "-" Then
MsgBox "Die Kundennummer bzw. die VP-Nummer fehlt! Bitte überprüfen!"
Range("f12").Select
Exit Sub
End If
ActiveWorkbook.SaveAs sDateiName
ActiveWorkbook.Close savechanges:=False
MsgBox "Das Blatt wurde unter " & sDateiName & " gespeichert!"
End Sub
es sollte so arbeiten das die Verknüpfungen nicht mit gespeichert werden, aber leider funzt es nicht mehr und es werden die Verknüpfungen voll mit gespeichert.
was kann ich dagegen tun?
Thx
Thomas B
Anzeige