Office: (Office 2010) Zellen in anderem Tabellenblatt durch Commandbutton loeschen

Hallo zusammen,

versuche schon eine ganze Zeit lang eine Loesung fuer folgendes Problem zu finden. Ich moechte mit einem CommandButton ein Makro starten, das zuerst ein bestimmtes (immer gleiches) Tabellenblatt kopiert, am Ende einfuegt, umbenennt und dann einen bestimmten Bereich loescht.
Bis auf den letzten Punkt funktioniert das auch. Egal wie ich es bisher ausprobiert habe, das Makro will die Zellen nicht markieren. Es kommt jedes Mal eine Fehlermeldung. Egal ob ich es mit Range oder Cells oder direkt loeschen versuche. Wenn ich das Makro direkt starte, also nicht ueber einen CommandButton funktioniert seltsamerweise alles.
Waere super, wenn jemand dafuer eine Loesung hat. Danke!

Fehlermeldung: Runtime Error 1004 Application defined or object defined error


Private Sub CommandButton21_Click()

Dim DC As String

DC = InputBox("DateCode? For example 123")

Sheets("NPE VL,LL,Start").Select
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "DC" & DC


Range("A41:Z60").ClearContents



End Sub

 

Hi,

kann ich nicht nachvollziehen - vielleicht solltest du deine Mappe mal hochladen.

Bis später,
Karin

 

Hallo Adam,

Du löschst den Bereich in deinem Blatt mit dem CommandButton. Warum auch immer.

Nimm
Worksheets(Worksheets.Count).Range("A41:Z60").ClearContents
dann funzt's.

Gruß,
Lutz

 

Das funktioniert ja wirklich :) vielen Dank!