ListView füllen aus Tabelle

[k-siebke]

hallo ich bin mal beim Stöbern im Internet über die ListView gestolpert 
 und habe es mal Geteste bzw.  ausprobiert. Bis zum erstellen Der Tabellen Überschriften hab ich es hin bekommen so wie einige andere Kleinlichkeiten 
Leider Schaffe ich es nicht die ListView zu füllen . Leider werde ich aus dem was ich so im Internet finde nicht ganz schlau. Ich würde mich daher über lehrreiche Information sehr freuen. 
Meine Frage ist welsche Methoden gibt es beider Listige zum befüllen 

Dies ist hier rein nur aus Interesse eine Frage und verpflichtet  zu nix!

[snb]

Speziell für dich:

https://www.snb-vba.eu/VBA_Listview_en.html

[Egon12]

Hallo,

anbei mal ein Beispiel:

Gruß Uwe

[k-siebke]

Speziell für dich:

https://www.snb-vba.eu/VBA_Listview_en.html

Oh danke ich Lese mir das gleich  mal durch 

---

hallo und Danke für deine Super gut gestaltete Listige. Hab sie mir runter geladen und Abgespeichert

---

Kras das hat mir gefehlt -brauchbare Informationen 

[k-siebke]

Danke noch mal für die Ganzen Informationen, inzwischen bin auch ich im Netz fündig geworden! Zwar ist es nicht perfekt den zum einen würde ich bei meiner vorerst Lösung   gerne den Text mittig zentrieren und zum andern zeigt meine ListView nicht die Uhrzeit an in der letzten Spalte. 
und was ich noch hinbekommen will ist das meine List View alle Dappelten wert in der ersten und Zweiten Spalte anzeigen soll.
 aber alles mit gemach gemach und viel zeit 

PHP-Code:

Private Sub UserForm_Initialize()
Dim i As Long
Dim letzteZeile As Long
letzteZeile = Range("A65536").End(xlUp).Row

With Me.ListView1
    .FullRowSelect = True
    .View = 3
    .LabelEdit = 1
    .Gridlines = True
    .HideSelection = False
    .AllowColumnReorder = False
End With

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "SKU", 100
ListView1.ColumnHeaders.Add , , "SKU/EAN", 100
ListView1.ColumnHeaders.Add , , "Spalte A Mg", 100
ListView1.ColumnHeaders.Add , , "Mg.Gesamt", 100
ListView1.ColumnHeaders.Add , , "1.Klärfall", 100
ListView1.ColumnHeaders.Add , , "2.Klärfall", 100
ListView1.ColumnHeaders.Add , , "Komentarfeld KL", 100
ListView1.ColumnHeaders.Add , , "Eingabezeit", 100

For i = 1 To letzteZeile
ListView1.ListItems.Add i, , Cells(i, 1).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 2).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 3).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 4).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 5).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 6).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 7).Value
ListView1.ListItems(i).ListSubItems.Add , , Cells(2, 8).Value

Next
ListView1.SortKey = 0
ListView1.Sorted = True
End Sub

Private Sub ListBox1_Click()

End Sub 


[k-siebke]

darf ich zu meiner Userfom was Fragen?
ich habe eine Zweite User Form über die ich angaben in die Tabelle eintrage.
mir ist aber aufgefallen obwohl ich die ListView im_Initialize gestellt habe, das die List View nicht die aktuellen angaben in der Tabelle in die List View einträgt. 

Himm

[RPP63]

Eine ListView in einem modernen Excel zu verwenden ist ungefähr so, als würdest Du Hafer in den Tank des Bugatti Chiron streuen!
Grob gesagt, gibt es die MSCOMCTL.ocx bereits seit 15 Jahren nicht mehr offiziell in Excel!
Wenn es bei Dir funktioniert, ist es Zufall (bedingt durch Access) oder eine nicht autorisierte Raubkopie der Datei.

Gruß Ralf

[k-siebke]

OK gut zu wissen!
sorry bin nicht so der VBA Kenner!
Aber danke für die Info von dir

könntest du es Neher erläutern?

[snb]

Grob gesagt, gibt es die MSCOMCTL.ocx bereits seit 15 Jahren nicht mehr offiziell in Excel!

Na, und ??


Verwendest auch kein scripting.filesystemobject, oder scripting.dictionary oder keine API's ?
Soalnge die Bibliotheken zur Verfügung stehen (und warum sollte das sein ?) kann man sie nützen.

[k-siebke]

Hallo snb,

die Version die ich hier gezeigt habe, da bin ich gestern drauf gestoßen im Internet ,bevor ich heute dein Beitrag gelesen habe!
Ich bin bei deinem Beitrag noch dabei dies zu verstehen, da ich aber VBA leihe bin kann ich nicht mal eben eine ganzes VBA Skript  zu Papier bringen 
daher teste ich es gerade mit einer Übungsdatei