ListBox Hintergrund der zellen!

Private Sub UserForm_Initialize()
Dim vWerArr         As Variant  ' Array der Zeilen-Nummern
Dim vInhArr(8, 7) As Variant  ' Array der 8 Zeile a 7 Spalten
Dim iZeile          As Integer  ' For/Next Index der Zeilen
Dim iSpalte         As Integer  ' For/Next Index der Spalten
Dim intZeile2 As Integer
intZeile2 = Zeileermitteln(1)
vWerArr = Array(1, 2, intZeile2 - 6, intZeile2 - 5, intZeile2 - 4, _
intZeile2 - 3, intZeile2 - 2, intZeile2 - 1)
For iZeile = 0 To 7
For iSpalte = 0 To intRechenoptionCount + 3
If (iZeile = 2 Or iZeile = 3 Or iZeile = 4) And (iSpalte > 0) Then
vInhArr(iZeile, iSpalte) = Format(Cells(vWerArr(iZeile), iSpalte + 1), "0.00")
Else
vInhArr(iZeile, iSpalte) = Cells(vWerArr(iZeile), iSpalte + 1)
End If
Next iSpalte
Next iZeile
Me.Caption = strVergleichsPara & " Summary"
ListBox1.List = vInhArr
End Sub