Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Gerundete Werte in eine ListView übernehmen
14.06.2017 16:14:41
Max
Guten Tag,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gerundete Werte in eine ListView übernehmen
14.06.2017 16:24:01
Nepumuk
Hallo,
so:
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).Text)
Item.SubItems(1) = Tabelle5.Cells(i, 2).Text
Item.SubItems(2) = Tabelle5.Cells(i, 3).Text
Item.SubItems(3) = Tabelle5.Cells(i, 4).Text
Item.SubItems(4) = Tabelle5.Cells(i, 5).Text
Item.SubItems(5) = Tabelle5.Cells(i, 6).Text
Item.SubItems(6) = Tabelle5.Cells(i, 7).Text
Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Gerundete Werte in eine ListView übernehmen
16.06.2017 11:45:59
Max
Guten Tag Nepumuk,
perfekt, vielen Dank!
Gruß, Max

32 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige