TextFeld beim Speichern löschen...
11.10.2007 09:28:00
InaB
ich habe ein großes Problem, das ich nicht alleine bewältigen kann.
Beim Speichern eines Tabellenblatts werden leider auch die mit Makros behaftetetn Textfelder 94-101 mitkopiert.
Gibt es eine Möglichkeit, diese Textfelder beim Kopieren zu löschen, sodaß sie im gespeicherten Tabellenblatt nicht mehr erscheinen?
Vielleicht kann jemand den Code entsprechend "umbasteln" ?!
Danke, Grüsse, InaB
Sub Sicherung()
ActiveSheet.Select
ActiveSheet.Copy
ActiveSheet.Unprotect
Range("A1:i71").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Columns("J:J").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
ActiveSheet.Shapes.Select ' Hier kommt Laufzeitfehler 438
Selection.Cut ' Object unterstützt dies Eigenschaft... nicht
Range("A22:I71").Select
Selection.Interior.ColorIndex = xlNone
Range("DO499:DO517").Select
Selection.ClearContents
Range("DO501:DO503").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
Dateiname = [Tabelle1!a4].Value
ActiveWorkbook.SaveAs Filename:=Dateiname
ActiveWindow.Close
Range("I23").Select
End Sub