Zellbereich löschen

29/09/2009 - 15:42 von Winfried Sauer | Report spam
Hallo NG,

ich habe in Tabelle1 einen CommandButton, mit dem ich in Tabelle2 den Inhalt
eines Zellbereiches löschen möchte. Der Code lautet:

Private Sub CommandButton1_Click()

Worksheets("Tabelle2").Activate

ActiveWorkbook.Sheets("Tabelle2").Range(Cells(1, 1), Cells(5,
1)).ClearContents

End Sub

Ich bekonne den Laufzeitfehler 1004 "anwendungs- oder objektorientierter
Fehler".

Wenn ich den gleichen Code auf Tabelle1 anwende, funktioniert es:

Private Sub CommandButton1_Click()

Worksheets("Tabelle1").Activate

ActiveWorkbook.Sheets("Tabelle1").Range(Cells(1, 1), Cells(5,
1)).ClearContents

End Sub


Was mache ich falsch.

Vielen Dank.
 

Lesen sie die antworten

#1 Andreas Killer
29/09/2009 - 15:59 | Warnen spam
Winfried Sauer schrieb:

ich habe in Tabelle1 einen CommandButton, mit dem ich in Tabelle2 den Inhalt
eines Zellbereiches löschen möchte. Der Code lautet:


Auf diese Frage hattest Du bereits 2 Antwort bekommen:
http://groups.google.de/group/micro...5d1?hl=de#

Die werden sich nicht àndern, auch wenn Du das nochmal fragst. .-)

Andreas.

Ähnliche fragen