Hallo und Guten Morgen,

vorab allen frohe Weihnachten und allerherzlichsten Dank für die stets sachliche und kompetente Hilfe.

Ich hoffe dass man mir auch dieses Mal wieder helfen kann. Leider kann ich keine Beispiel Datei hochladen.

Mit folgendem Makro berechne ich die Summe der Werte einer Spalte der ListBox1. Spalte 8

Dim ASumme As Date
With frmDUZ.ListBox1
For c = 0 To .ListCount - 1
ASumme = ASumme + CDbl(.List(c, 8))
Next c
End With
frmDUZ.TextBox26.Text = WorksheetFunction.Text(ASumme, "0.00")

Das funktioniert wenn in jeder Zeile der Spalte auch ein Wert vorhanden ist, aber wenn zwischen einzelnen Werten Leerstellen sind kommt die Fehlermeldung "Typen unverträglich".

Kann ich das irgendwie umgehen, momentan befülle ich die Leerstellen immer mit ner Null, das scheint mir aber nicht elegant genug zu sein?

Danke euch im Voraus!

L.G. Frank H.