Leere Zellen sind nicht leer?

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke für Deine Bemühungen, ich weiss das zu schätzen. Die ganze Mappe kann ich leider nicht hochladen, da einerseits viel zu gross und andererseits geschäftlich sensitiv. Ich kürze aber mal massiv und zeige was ich im Endeffekt mache:

1. Ich habe eine Liste mit Kundennamen/Nummern, denen will ich Monatsumsätze zuspielen. Die Liste lebt, immer wieder kommen Spalten hinzu oder werden gelöscht, deshalb will ich einzelne Spalten flexibel befüllen können. Um die "richtige" Position innerhalb des Arrays zu finden (dh. die richtige Umsatzzahl zur richtigen Kundennummer), fülle ich die Kundennummern zunächst in ein Array ab: arrLiefAkt = Range
Dann dimensioniere ich ein Ziel-Array:

dim arrUmsatz(1 to Ubound(arrLiefAkt), 1 to 1)

--> 1-basiert damit ich es nachher in Excel einfach reinkopieren kann.

Gleichzeitig fülle ich die Sourcedaten in ein arrLiefQuelle

2. Ich loope durch die 2 Arrays arrLiefAkt und arrLiefQuelle und prüfe auf Übereinstimmung der Kundennummer. Dann fülle ich den entsprechenden Umsatzwert in die arrUmsatz ab. Wenn keine Übereinstimmung vorhanden, dann bleibt die entsprechende Position im arrUmsatz schlussendlich "leer".

for i = LBound(arrLiefAkt) to UBound(arrLiefAkt)
     for j = LBound(arrLiefQuelle) to UBound(arrLiefQuelle)
             If arrLiefAkt(i,1) = arrLiefQuelle(j,1) then
                     arrUmsatz(i,1) = arrLiefQuelle(j,2)
             end if     
      next j
next i

3. Ich kopiere die arrUmsatz an der richtigen Stelle ins Blatt. Ich mache das mit der folgenden Funktion:

Public Sub ArrFillFromTopLeft(R As Range, Arr)
    R.Resize(ArrRowCount(Arr), ArrColCount(Arr)).Value = Arr
End Sub
Public Function ArrRowCount(Arr) As Long
    ArrRowCount = UBound(Arr, 1) - LBound(Arr, 1) + 1
End Function
Public Function ArrColCount(Arr) As Long
    ArrColCount = UBound(Arr, 2) - LBound(Arr, 2) + 1
End Function

--> Ich gebe als Parameter die genaue Position der 1. Zelle und das einzufüllende Array an.

Ach ja, Du hast auch gefragt, wie ich die Arrays dimensioniere --> gleich am Anfang der Sub mit

Dim arrLiefAkt()
Dim arrLiefQuelle()
Dim arrUmsatz()

Und das ist die ganze Magie, mehr mache ich nicht. Und da ich im Loop gewisse Positionen im Array gar nicht befülle, sollten die meiner Meinung nach auch als leer ins Blatt gefüllt werden?

Ist das so nachvollziehbar?

Lg Marc

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zellen sind nicht leer?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread