Re: Bereich statt Zelle?
09.12.2002 15:37:58
Hajo_Zi
Hallo Mikehast Du Formeln in Deiner Tabelle dann schalte die Berechnung doch die Berechnung aus.
Warum select ist mir unklar, bei mir läuft es ohne Fehler
Wenn in Spalte C keine leeren Zellen, teste mal folgenden Code
Option Explicit
Sub Mike()
Dim A As Long
Dim ORange As Range, x As Range
Application.ScreenUpdating = False
For A = Cells.SpecialCells(xlLastCell).Row To 2 Step -1
If InStr(Cells(A, 3), "titel.htm") >= 1 Then
Cells(A, 3) = ""
Else
Cells(A, 3) = LCase(Cells(A, 3))
End If
Next A
Set x = ActiveSheet.Range(Cells(2, 3), Cells(Cells(Rows.Count, 3).End(xlUp).Row, 2))
Set ORange = x.SpecialCells(xlCellTypeBlanks)
ORange.EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo