Darstellung im Einzelschritt

Bild

Betrifft: Darstellung im Einzelschritt
von: Jessica
Geschrieben am: 11.11.2003 09:03:42

Hallo zusammen,

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

Bild


Betrifft: AW: Darstellung im Einzelschritt
von: GerdW
Geschrieben am: 11.11.2003 12:42:50

Da du das Blatt nicht benennst, in dem gelöschtwerden soll, wird
immer im gerade aktiven Blatt gelöscht.

Range("h29:al128").Select
Selection.ClearContents
Range("h9:al20").Select
Selection.ClearContents

Gerd


Bild

Beiträge aus den Excel-Beispielen zum Thema " Darstellung im Einzelschritt"