Range auf Werte überprüfen (Is Empty)
05.03.2007 16:48:56
Manfred
ich will gerne einen Range markieren und diesen dann auf Werte hin überprüfen, also ob irgendwo im markierten bereich Werte sind. Falls ja, dann soll er die Zeile löschen. Das löschen als solches funktioniert, aber die Abfrage nicht. Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt"
Was muss ich abändern damit das makro funktioniert?
Sub leerzeilen_loeschen()
'Range("E224:CB224").Select 'als beispiel für einen Bereich
Dim test As Range
Dim i As Integer
For i = 3 To ActiveSheet.UsedRange.Rows.Count
test = Range("E" & i & ":CB" & i).Select
If test Is Empty Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i
End Sub
Grüße
Manfred
Anzeige