Bereich ab 1. Leerzelle löschen
03.11.2007 16:55:00
Korl
ich bastele eine Weile an folgenden Problem und komme nicht weiter.
Folgendes möchte ich erreichen:
ab der 1. Leerzelle in Spalte "A" möchte ich alles unterhalb dieser Zelle löschen bis Spalte "G"
Mein Versuch sieht momentan so aus:
Sub Bereich_löschen()
Dim i As Integer
Dim lLetzteG As Long
Dim myRange As Range
Set myRange = ActiveCell
lLetzteG = IIf(Range("D65536") <> "", 65536, Range("D65536").End(xlUp).Row)
Do
i = i + 1
Cells(i, 1).Select
Loop Until IsEmpty(Cells(i, 1))
Range(myRange ":G" & lLetzteG).Clear
End Sub
Könnte mich jemand hierbei vielleicht unterstützen?
Gruß Korl
Anzeige