Zellen mit VBA-Code löschen

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Ich möchte aus meiner Excel-Datei regelmäßig Zellen löschen. Dafür habe ich folgenden Code geschrieben:

Private Sub CommandButton6_Click()

Workbooks.Open FileName:="\z001sf0001\altdaten\Testdatei555.xls"

Do
ActiveCell.Offset(1, 0).Activate
Selection.Delete
Loop Until ActiveCell.Value = „“

ActiveWorkbook.Save
ActiveWorkbook.Close

Eigentlich sollte die Schleife ja nun so lange durchlaufen, bis sie eine leere Zelle erreicht und alle durchlaufenden Zellen löschen. Das funktioniert jedoch nur halb. Es werden nur einige Zellen gelöscht und ich kann mir nicht erklären, warum nicth alle gelöscht werden. Kann mir jemand sagen welchen Fehler ich gemacht habe?

Schonmal Danke.

LG Claudia

#2

Hallo Claudia,

durch den Befehl

ActiveCell.Offset(1, 0).Activate

wird der Cursor auf die jeweils darunter liegende Zelle verschoben. Das geschieht aber schon automatisch, wenn Du die aktive Zelle löschst. Du solltest diesen Befehl, falls Du ihn überhaupt brauchst, oberhalb der Schleife abarbeiten.

mfg Rita