Office: Listview zweite Reihe füllen

skidrow · 18. Juli 2016

Hallo,

egal was ich mache, ich bekomme die zweite Reihe nicht gefüllt. Es geht sich um die Userform1. Könnte mir einer das erklären. Ich möchte mich mal mit ListView auseinandersetzen.

Code:

Dim i, iLetzte As Integer

iLetzte = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row

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

With ListView1.ColumnHeaders
.Add , , Tabelle3.Cells(1, 1), 200 'Bezeichnung
.Add , , Tabelle3.Cells(1, 2), 70 'Mengeneinheit
.Add , , Tabelle3.Cells(1, 3), 70 '€/Einheit
End With

For i = 2 To iLetzte
With ListView1
.ListItems.Add = Tabelle3.Cells(i, 1)
End With
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie muss ich den Code für 2 weitere Spalten ergänzen. Die Spalten sind immer um einen nach rechts versetzt.

Ich danke euch *Smilie

:)

chris-kaiser · 20. Juli 2016

Hi,

die Nachteile sind Dir bekannt?
Edit: siehe https://www.google.at/?gws_rd=ssl#q=...+listbox+excel
und mache Dir ein Bild davon.
Bei OL ist bst der selben Meinung wie ich ^^

Ich habe bislang die Dinger immer entfernt und durch Listboxen ersetzt!

Code:

Option Explicit

Private Sub UserForm_Initialize()
Dim i As Long, iLetzte As Integer, y As Long

iLetzte = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row

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

With ListView1.ColumnHeaders
.Add , , Tabelle3.Cells(1, 1), 200 'Bezeichnung
.Add , , Tabelle3.Cells(1, 2), 70 'Mengeneinheit
.Add , , Tabelle3.Cells(1, 3), 70 '€/Einheit
End With

For i = 2 To iLetzte
With ListView1
.ListItems.Add , , Tabelle3.Cells(i, 1)
For y = 1 To 2
.ListItems(i - 1).SubItems(y) = Tabelle3.Cells(i, y + 1)
Next
End With
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

skidrow · 20. Juli 2016

Danke erstmal für deine Hilfe! Nein, das war mir leider alles nicht bekannt. Bekommt man denn die Listbox auch mit Überschriften befüllt? Ich bekomme das mit Rowsoucre nicht hin. Da steht dann immer RowSource konnte nicht gesetzt werden

chris-kaiser · 20. Juli 2016

Hi,

siehe
http://www.ms-office-forum.net/forum...d.php?t=316211

edit: gerade getestet mit Rowsource

Code:

Private Sub UserForm_Initialize()
Dim iLetzte As long
iLetzte = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row
Me.ListBox1.RowSource = Tabelle3.Name & "!A1:C" & iLetzte
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

skidrow · 20. Juli 2016

Kann das an Office 64 Bit liegen. Selbst bei deinem Code geht es nicht. Muss ich Zuhause mal probieren.

Bevor noch jemand was falsches denkt. Ich mache das ganze gemeinnützig für die GHG-Merzig. Ich verdiene nicht mein Geld damit. Danke dir Chris! Ich werde das dann mal prüfen.....

Grüße

chris-kaiser · 20. Juli 2016

Guten Morgen

Selbst bei deinem Code geht es nicht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht nicht, ist keine klare Fehlerbeschreibung *wink.gif*

Einen Fehler hatte ich auch noch drinnen.
A1 sollte durch A2 ersetzt werden sonst wird ja nur bei der Beschriftung Spalte A, B, C angezeigt.

Anbei ein ganz langes Video 30sec

skidrow · 21. Juli 2016

Hallo Chris... das hatte ich bemerkt. Hat jetzt auch geklappt. Lag wohl echt an Excel 64 Bit. Haben wir aber jetzt geklärt bekommen. Ich danke dir riesig für die Hilfe *Smilie

Office: Listview zweite Reihe füllen

Listview zweite Reihe füllen

Listview zweite Reihe füllen

Listview zweite Reihe füllen

Listview zweite Reihe füllen - Similar Threads - Listview zweite Reihe

ListView & mac

ListView Access 2016 64Bit

Listview Formular öffnen

Listview (ActiveX): Font setzen?

Listview mit Checkbox

Listview und Listbox = Nicht genug Speicher

Wie suche ich in Listview?