Hallo zusammen,
ich wäre wieder mal froh um einen guten Tipp: Ich befülle mittels VBA einzelne Spalten mit Daten. Dazu importiere ich die Daten zunächst in ein 1dim Array aus einem Source-File. Es wird dabei der jeweilige Umsatzwert aus dem Sourcefile ausgelesen und und dann an der richtigen Position ins Array geschrieben. Wenn kein Umsatzwert vorhanden ist, dann wird die jeweilige Position im Array auch nicht beschrieben. Am Schluss kopiere ich das Array einfach im Excel an die richtige Stelle. Und ja, natürlich habe ich vorher den Einfügebereich mit Clearcontents gelöscht, es sind also keine "Altlasten" mehr im Zielbereich. Das alles funktioniert auch sehr gut und schnell.
Mein Problem: Die leeren Zellen sehen zwar leer aus (kein Inhalt, auch in der Bearbeitungsleiste keine unsichtbaren Leerzeichen usw.), werden von Excel aber nicht als Leer wahrgenommen. Mit Anzahl2 z.B. werden alle Zellen gezählt.
Wenn ich nun den Datenbereich sortiere, alle offensichtlich leeren Zellen anwähle und nochmals lösche, dann ist Excel auch zufrieden und wertet die Zellen auch als leer. Aber irgendwie muss das doch auch besser gehen?
Ich habe diverse Sachen versucht, z.B. Das Array nochmals durchloopen und auf NotEmpty prüfen und dann "" als Wert schreiben
oder auch For Each cell in Rng if IsEmpty(cell) then cell.ClearContents
Aber leider keine Erfolg. Kennt jemand von Euch dieses Phänomen und kann mir sagen, wie ich das lösen kann?
Vielen Dank im Voraus für Eure Bemühungen.
Lg Marc