Guten Tag zusammen,
ich habe folgende Probleme.
Ich möchte aus zwei Listenfeldern werte auslesen, diese Summieren und dann in eine TextBox schreiben. Das funktioniert auch manchmal. Nur hin und wieder (viel zu oft), kommt die Fehlermeldung: Laufzeitfehler 13, Typ unverträglich
Warum kommt das?
Meine listenfelder werden durch den Inhalt von Textboxen gefüllt. Warum bekomme ich dann einen Laufbalken, obwohl nur eine einzelne Zahl eingegeben wurde?
Beispielcode:
'Werte in ListBox_Piece uebergeben
With ListBox_Piece
.AddItem TextBox_Piece.Value
End With

'Werte in ListBox_Value uebergeben
With ListBox_Value
.AddItem Format(TextBox_Value.Value, "#,##0.00")
End With
'Berechnen der Summe
For intBanfValueCount = 0 To ListBox_Value.ListCount - 1
With ListBox_Piece
.ListIndex = intBanfValueCount
dblCountPiece = CDbl(.Value)
.ListIndex = -1
End With

With ListBox_Value
.ListIndex = intBanfValueCount
dblCountValue = CDbl(.Value) """ Fehlermeldung
.ListIndex = -1
End With

dblSumValue = dblSumValue + dblCountPiece * dblCountValue

Next intBanfValueCount
Danke für Eure Hilfe.
Gruß
Michael