clearcontents Problem
23.05.2018 17:06:51
Torsten
Ich mal wieder mit einem Problemchen, was ich nicht auf die Reihe bekomme.
Habe ein Workbook, das von anderen Workbooks mit Daten gefuettert wird. Soweit so gut. Dann wird ueber Code das Sheet an einen Emai Empfaenger gesendet und als Kopie in einem anderen Workbook gespeichert. Immernoch gut. Um das Sheet aber fuer den naechsten Tag wieder sauber zu haben, habe ich am Ende den Code, um die befuellten Zellen zu bereinigen. Siehe Code
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:="\\murplfp01\Workgroups\MUS GBC Operations\Team\NA CAN\Canada - _
Quotations\CA_QU Productivity sheet\CA_QU Productivity sheet Month\Closing Summary_CA_Quotation_May2018.xlsm", ReadOnly:=False, WriteResPassword:="?", IgnoreReadOnlyRecommended:=True
Call transfer_to_month_sheet
Workbooks("Closing Summary_CA_Quotation_May2018.xlsm").Close savechanges:=True
ThisWorkbook.Activate
Sheets("Summary").Activate
Call Send_sheet_via_Outlook
Call create_daily_sheet
Application.ScreenUpdating = True
ThisWorkbook.Sheets("Summary").Range("B5:B8").ClearContents
ThisWorkbook.Sheets("Summary").Range("B12:B20").ClearContents
ThisWorkbook.Sheets("Summary").Range("C12:C20").ClearContents
ThisWorkbook.Sheets("Summary").Range("E12:E20").ClearContents
ThisWorkbook.Sheets("Summary").Range("F12:F20").ClearContents
ThisWorkbook.Close savechanges = True 'Save and close this workbook
End Sub
Ich komme leider nicht dahinter, warum die Zellen nicht bereinigt werden. Wenn ich die Datei wieder oeffne, nachdem der Code gelaufen ist, sind die Daten immer noch in den Zellen.Bitte helft mir. Wenn noetig, kann ich auch die Datei hochladen.
Vielen Dank im Voraus