ich habe im Thread zuvor "Listbox mit Objekt befüllen" von Onur ein super Lösung bekommen, hierzu nochmals danke.
Die Lösung hat die Werte (Preise), welche in eine Listbox geschrieben werden, mit einer Variable vom TYP "Variant" benutzt.
Nun möchte ich gerne die Listbox auslesen (alle GesamtPreise) und diese in eine Variable vom Typ Double schreiben, damit ich den Gesamtbetrag ausgeben lassen kann.
Da es momentan vom Typ Variant ist, werden alle Werte nebeninander dargestellt und nicht zusammen gerechnet, wenn ich die Schleife so darstelle:
Dim q As Integer
Dim intSum As Variant
With libAuswertung
For q = 0 To .ListCount - 1
intSum = intSum + .List(q, 2)
Next
End With
txtGesamtbetrag.Value = intSum