Leere Zelle erkennen
17.05.2014 11:29:31
traktorjoe
ich habe eine Tabelle, in welcher ich alle Zellen wie folgt befülle: Wenn(IstFehler(Sverweis(...)), "", Sverweis(...)). Das heißt ich blende damit alle NVs aus. Nun möchte ich über VBA alle Zellen, welchen einen Inhalt anzeigen (denn alle Zellen beinhalten ja die Formel) adressieren. Der Code ist soweit schon fertig und tut auch das was er soll, aber leider nur so lange bis die Zelle tatsächlich leer ist.
Daher nun meine Frage, wie ich denn eine vermeintlich leere Zelle (NV wird ausgeblendet) in VBA als leer adressieren kann? Hat da jmd. eine Idee?
Anbei der Code:
Sub Rendite_Plaus()
Cells.Interior.ColorIndex = 2
LastRow = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row
LastCol = Worksheets("Tabelle3").Cells(3, Columns.Count).End(xlToLeft).Column
On Error Resume Next
For Col = 2 To LastCol
For Row = 4 To LastRow - 1
If Not IsEmpty(Cells(Row + 1, Col)) And Not IsEmpty(Cells(Row, Col)) And IsNumeric( _
Cells(Row + 1, Col)) Then
If (Cells(Row + 1, Col) / Cells(Row, Col)) - 1 > 1 Or (Cells(Row + 1, Col) / Cells( _
_
Row, Col)) - 1
Vielen Dank im Voraus und viele Grüße!