Darstellung im Einzelschritt
11.11.2003 09:03:42
Jessica
vielleicht mag mir jemand helfen. ich habe einen Button in meiner Excel-Tabelle mit "neuer_monat" verknüpft. Der Code soll unter anderem die Datei unter neuem Namen abspeichern und die Inhalte (in mehreren Tabellenblättern, hier nur das relevante dargestellt) löschen.
Bei Abruf im Einzelschritt werden die Werte wunderbar gelöscht. Nur bei klick auf den Button werden lediglich die Werte in den anderen Tabellenblättern gelöscht. Im Sheet "Mengen" bleiben sie stehen.
Hat jemand eine Idee woran das liegen kann. Anbei der Code.
Gruß,
Jessica
Sub neuer_monat()
Dim tag, wtag, test
Dim filename, datum
ActiveWorkbook.Save
datum = Format(Sheets("Mengen").Range("B147").Value, "yyyy-mm")
filename = ActiveWorkbook.Path & "\" & datum & " Warenausgang.xls"
ActiveWorkbook.SaveAs (filename)
Sheets("Mengen").Range("B2").Value = Sheets("Mengen").Range("B2").Value + (365.25 / 12)
Sheets("Mengen").Range("B147").Value = Sheets("Mengen").Range("B147").Value + (365.25 / 12)
Range("h29:al128").Select
Selection.ClearContents
Range("h9:al20").Select
Selection.ClearContents
End Sub