Hallo Freunde,
die Zellen einer Spalte im UsedRange einer Tabelle von mir sind als numerisch formatiert. Wenn dort
schon einmal Werte eingetragen waren und anschließend gelöscht wurden, ergibt eine Prüfung mit
dem Programm
Public Sub ZellenPruefen()
MsgBox IsEmpty(ActiveCell.Value)
End Sub
den Booleschen Wert "FALSE". Zellen, die noch nie initialisiert wurden, z.B. solche außerhalb des
UsedRange, liefern dagegen das Ergebnis "TRUE".
Nun hatte ich früher einmal folgendes Programm geschrieben, mit dem man initialisierte Zellen
deinitialisieren kann, wenn sie für das Auge leer sind:
For Each c In ActiveSheet.UsedRange
If c.Value = Chr(32) or c.Value = "" Then
c.Value = NULL
End If
Next c
Das funktioniert aber offenbar nicht bei für das Auge leeren (d.h. auf dem Bildschirm weiß erscheinenden)
numerischen Zellen.
Frage: Wie muss ich obigen Makro ändern, damit auch optisch leere numerische Zellen mit
deinitialisiert werden können?
Vielleicht weiß jemand von euch Rat. Dank!! Werner R.