"Leere" Zellen aufspüren
09.10.2013 16:06:21
{Boris}
ich habe eine Mappe, in der die leeren Zellen nicht leer sind.
Will heißen: =ISTLEER(A1) liefert FALSCH, =LÄNGE(A1) liefert 0.
Einfach zu reproduzieren, indem man in A1 die Formel ="" schreibt und anschließend das Ergebnis durch Inhalte-Einfügen-Werte ersetzt.
Bei der Mappe handelt es sich um irgendeinen Import mit ziemlich vielen Datensätzen (32000 Zeilen). Allerdings sollen die leeren Zellen eben wirklich leer sein.
Kann man das schneller lösen als mit einer For-Each-Schleife nach der Art:
Option Explicit
Sub weg()
Dim C As Range
With Application
.Calculation = xlCalculationManual
For Each C In Tabelle3.UsedRange
If Len(C) = 0 Then C.ClearContents
Next C
.Calculation = xlCalculationAutomatic
End With
End Sub
Danke schon mal für Euren Input!
VG, Boris