wie kann ich den Bereich eingrenzen
11.07.2003 12:48:25
Äffchen
Ich habe diesen Code im Internet gefunden, der Code kann ich gut gebrauchen, wenn ich den Bereich eingrenzen könnte.
In dem Code ist UsedRange der Bereich, indem ich prüfe, ob leere Zeilen dort sind.
In meinem Sheet aber möchte ich nicht alle leere Zeilen löschen, sondern er soll zB. nur in Zeile 21 bis 24 prüfen, ob leere Zeilen dort sind und wenn er was gefunden hat soll er nur in diesem Bereich löschen. Kann mir jemand weiter helfen? Vielen Dank für jeder Hilfe
Sub GanzeZeileLoeschen()
Dim intRow As Integer
Dim intCol As Integer
Dim x As Variant
For intRow = ActiveSheet.UsedRange.rows.Count To 1 Step -1
x = ""
For intCol = 1 To ActiveSheet.UsedRange.Columns.Count
x = x & Cells(intRow, intCol)
Next intCol
If x = "" Then
Cells(intRow, 1).EntireRow.Delete
End If
Next intRow
End Sub
Gruß Äffchen
Anzeige