Fehlende Formel in Spalte finden
11.04.2006 18:29:21
Iso
hoffe auf eure Hilfe bei folgendem Problem:
mit einem kleinen Makro möchte ich in einem Bereich DF25:DF520, welcher übrigens den Namen "EW" hat, jene Zellen finden und mit der Farbe rot hinterlegen, in welcher ****keine**** Formel steht, (da die Anwender beim Zeilen-einfügen leider immer vergessen, jene Formel mit 'runter zu kopieren...)
Habe mit IsEmpty und IsNumeric experimentiert, leider ohne Erfolg.
wer leitet mich an? Danke schön vorab!
I. N.
Sub FehlendeFormelFinden()
Dim ZeileMax As Integer
Dim Zeile As Integer
Dim lngZ As Long
With Sheets("BeVu")
lngZ = ActiveSheet.UsedRange.Rows.Count
ZeileMax = .Range("A" & lngZ).End(xlUp).Row
For Zeile = ZeileMax To 25 Step -1
If IsEmpty(.Cells(Zeile, 136).Value) = False Then
Else
.Rows(Zeile).Interior.ColorIndex = 4
End If
Next Zeile
End With
End Sub