Leerzellen, initialisierte und sonstige
Werner
Manchmal erlebt man Wunder mit Zellen, die leer aussehen, es aber nicht immer sind. Optisch
sind diese nur schwer zu unterscheiden, doch es ist durchaus von Bedeutung, ob eine Zelle
intialisiert ist oder nicht. Funktionen, die z.B. die letzte Zeile oder Spalte einer Tabelle ermitteln,
werden durch manche scheinbar "leeren", in Wirklichkeit aber gefüllten Zellen, beeinflusst. Auch
ein Leerstring ist offenbar als Füllzustand einer Zelle anzusehen.
Frage: Wie stellt man den Normalzustand der Leerzellen in einer Datei wieder her, wenn in dieser
Datei tüchtig Spalten und Zeilen gelöscht worden sind und deshalb in dieser Datei überall Zellen
herumschwirren, die leer wirken, es aber nicht sind?
Man kann natürlich den UsedRange mit einer Schleife leerraeumen (natürlich nur diejenigen Zellen,
die keinen Text enthalten), z.B.:
Sub Leermachen()
Dim c as Range
For Each c in UsedRange
If IsEmpty(c) = False Then
Set c = Nothing
End If
Next c
End Sub
Kennt ihr vielleicht eine bessere Methode?
Mit Leerstrings belegte Zellen können eine Datei übrigens erheblich aufblähen, wenn viele davon
vorhanden sind.
Werner
Anzeige
