Ich habe ein Problem mit einer Lösch-Routine.
Mittels folgenden VBA Code lösche ich Zellen wenn sie keinen Inhalt haben.
ende = Application.ActiveSheet.Range("I65536").End(xlUp).Row
Range("I11", "I" & ende).Select
For Each Zellen In Selection
If Zellen.Text = "" Then
Zellen.Delete Shift:=xlUp
End If
Next
Die durchsuchte Spalte erhält ihre Werte duch Zellbezüge. D.h. wenn ich z.B. in Spalte A einen Wert lösche, wird der Wert der entsprechenden Zeile in Spalte I zu Null.
Um die Werte in Spalte I nicht jedesmal mit 'Entf' per Hand zu löschen, hatte ich obenstehende Routine derart geändert, dass ich nach "0" suchen lasse. Da aber in den Zellen keine echte Null steht, sondern nur ein Zellbezug, hat sich der VBA Code aufgehängt und Excel reagiert nicht mehr.
Wie kann ich denn nach der angezeigten Null suchen lassen und sie löschen, wenn es keine echte Null ist, sondern eine durch einen Zellbezug erzeugte?
Hhhmm - hört sich etwas wirr an, aber ich hoffe irgendjemand kann es nachvollziehen. :-)
Würde mich über einen Tipp sehr freuen!
Gruß Thias