cells(i,j) <> "" läuft nicht
19.08.2005 11:37:50
Tim
dies ist der Auszug aus einem Makro von mir:
For i = 4 To LetzteZeile
If Cells(i, 1) "" Then
Cells(i + 1, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
i = i - 1
End If
i = i + 1
Next
Ich habe eine Liste, bei der in der Spalte A teilweise Zahlen vorkommen und die restlichen Zellen leer sind. Wenn nun eine Zahl auftaucht, soll eine Zeile eingefügt werden. Die If-Abfrage findet einige Zahlen, einige aber nicht, obwohl zwischen den Zahlen kein Unterschied besteht. Wie kann so etwas sein?
Eine solche Abfrage habe ich schon oft gemacht und noch nie Probleme gehabt.
Danke und Gruß
Tim