Gerundete Werte in eine ListView übernehmen
14.06.2017 16:14:41
Max
mit diesem Code
Private Sub Aktualisieren()
'Deklaration
Dim Item As ListItem
Dim LinhaFinal As Integer
Dim i As Integer
LinhaFinal = Tabelle5.Cells(Rows.Count, 1).End(xlUp).Row 'Gibt die letzte Zeile mit einem _
Eintrag an
For i = 18 To LinhaFinal
Set Item = ListView1.ListItems.Add(Text:=Tabelle5.Cells(i, 1))
Item.SubItems(1) = Tabelle5.Cells(i, 2)
Item.SubItems(2) = Tabelle5.Cells(i, 3)
Item.SubItems(3) = Tabelle5.Cells(i, 4)
Item.SubItems(4) = Tabelle5.Cells(i, 5)
Item.SubItems(5) = Tabelle5.Cells(i, 6)
Item.SubItems(6) = Tabelle5.Cells(i, 7)
Next
End Sub
übernehme ich eine Tabelle mit Messwerte aus einem Tabellenblatt auf eine Listview in Userform. Die Werte aus dem Tabellenblatt sind gerundete Werte. Dieser Code liefert mir aber ungerundete Werte in meine Listview. Wie krieg ich es hin, das die Werte auf der Listview ebenso die gleichen gerundeten Werte wie auf dem Tabellenblatt sind? Danke im Voraus!
Gruß, Max
Anzeige