Löschen eines Bereiches
03.07.2008 08:15:00
Thomas3
manchmal stehe ich dem Guten einfach im Wege und denke mir, Thomas, das soll nicht sein. Und trotzdem fuchst mich das tierisch, warum das nicht geht...
Aus einer Tabelle heraus soll in der gleichen Datei in einer anderen Tabelle der Bereich ab der Zeile 2 bis zur letzten beschriebenen Zeile gelöscht werden. Kein Problem...
lzeile = Thisworkbock.Sheet("Liste").cells(Rows.Count, 16).End(xlUp).Row
ThisWorkbook.Sheet("Liste").range(Cells(2,1),Cells(lzeile,16)).ClearContens
Wunderbar. Passt.
Nur, wenn in dem Bereich nichts steht, dann läuft der Befehl ins Leere und ich bekomme eine Fehlermeldung. Will ich nicht. Also schreibe ich :
lzeile = Thisworkbock.Sheet.("Liste").cells(Rows.Count, 16).End(xlUp).Row
If lzeile = 1 then
MsgBox "Da steht nix mehr"
Exit sub
else : ThisWorkbook.Sheet("Liste"). Range(Cells(2,1),Cells(lzeile,16)).ClearContens
End if
Und - Hurra - Ich bekomme eine Fehlermeldung bei dem ClearContens.
Kann mir einer sagen warum ?
Liebe Grüße
Thomas