Nullwerte entfernen
26.10.2012 11:40:06
Thorsten
Habe folgendes Problem:
Größe Datentabelle, die sich aus vielen anderen Tabellen generiert. Da nicht immer überall Werte vorhanden sind kommt es zu Nullwerten. Die kann man zwar im Excel ausschalten allerdings werden die Daten am Ende zusammengefügt und dort erscheinen dann die Nullen wieder mit.
Die Zusammenfügung erfolgt über nachstehender Code, der bereits vor längerer Zeit eine Hilfe aus diesem Forum ist.
Function csvVerketten(rng As Range, Optional TrennZeichen As String = ";") As String
Dim Zelle As Range
For Each Zelle In Intersect(rng, rng.Parent.UsedRange)
csvVerketten = csvVerketten & TrennZeichen & Zelle.Value
Next
csvVerketten = Mid(csvVerketten, 2)
End Function
Funkt wunderbar, nur die Nullwerte müssen als Nichts erscheinen. Kann dies in die Funktion eingearbeitet werden und wenn ja, wie? Über Hilfe würden ich mich sehr freuen.
Gruß Thorsten W.