Ich habe ein problem mit dem Füllen einer Listbox.
Das Ziel meiner Aufgabe ist es in der Listbox in Spalte 6 "Rechnungssumme" den letzten Wert der jeweiligen Zeile einzufügen. Wie muß ich die Zeile aus meinem Code ".List(zeile3, 6) = C.Offset(0, 248).Text 'Rechnungssumme" ändern? Hat jemand eine Idee?
Danke im voraus für eure Mühe
For Each C In Worksheets("Speicher").Range("H2:H" & iRow)
If C.Value > 0 And C.Value < Date Then
With Me.ListBox3
.AddItem C.Offset(0, -7).Value 'Rechn.- bzw. AngebotsNr.
.List(zeile3, 1) = C.Offset(0, -6).Value 'KundenNr.
.List(zeile3, 2) = C.Offset(0, -5).Value 'Name
.List(zeile3, 3) = C.Offset(0, -4).Value 'Straße
.List(zeile3, 4) = C.Offset(0, -3).Value 'PLZ & Ort
.List(zeile3, 5) = C.Offset(0, -2).Value 'Datum
.List(zeile3, 6) = C.Offset(0, 248).Text 'Rechnungssumme
End With
zeile3 = zeile3 + 1
End If
Next C