VBA ListView auslesen

[Abraxas_X]

Hallo Zusammen,
bin neu hier und in VBA bisschen gewandert.
Ich versuche grade per ListView die Daten die sich in einer Tabelle befinden in 3 TextBoxen auszulesen.
Leider zeigt er mir einen Fehler.

Benutze folgenden Code dafür:

Private Sub ListView1_Click()
Dim X As Integer
For X = 0 To ListView1.Items.Count - 1
TextBox1 = ListView1.Items(X).SubItems(0).Text ' Wert aus 1. Spalte
TextBox2 = ListView1.Items(X).SubItems(1).Text ' Wert aus 2. Spalte
TextBox3 = ListView1.Items(X).SubItems(2).Text ' Wert aus 3. Spalte

Next X


End Sub

Fehler Meldung bei Items:

MfG

Ab........

 

[Zvoni]

Ich war immer der Meinung, der Items-Count für ListViews beginnt bei 1 statt bei 0

For x=1 To ListView1.Items.Count

Und muss das nicht ListItems (Statt Items) heissen?

For x=1 To ListView1.ListItems.Count

 

[Abraxas_X]

Guten abend,
vielen dank für deine schnelle antwort und auch für deine Hilfe.
Hab den code abgeändert, und jetzt zeigt er mir einen anderen Fehler an.

Private Sub ListView1_Click()
Dim X As Integer
    For X = 1 To ListView1.ListItems.Count
        TextBox1 = ListView1.ListItems(X).SubItems(0).Text   ' Wert aus 1. Spalte
        TextBox2 = ListView1.ListItems(X).SubItems(1).Text  ' Wert aus 2. Spalte
        TextBox3 = ListView1.ListItems(X).SubItems(2).Text   ' Wert aus 3. Spalte
        
    Next X
End Sub

 

[Yaslaw]

Und was für eine Fehlermeldung ist es? Meistens sagen sie ein wenig etwas über den Fehler aus.

 

[Zvoni]

Und was für eine Fehlermeldung ist es? Meistens sagen sie ein wenig etwas über den Fehler aus.

SubItems(0) gibt es nicht.
Einfach ListView.ListItems(x).Text ist die erste Spalte
Alle weiteren Spalten sind die SubItems (1 bis x) ohne Text am Ende

 

[Abraxas_X]

Hallo,
sorry das ich mich erst jetzt melde, war Beruflich sehr angespannd.
Im Anhang befindet sich die Fehler meldung

In den Texten wird aber leider noch nix angezeigt, wie bekomme ich das man besten hin, wenn ich auf einen eintrag in ListView klicken, das er mir die Daten in den TextBoxen anzeigt?

gruß

 

[Zvoni]

Ungetestet.

Private Sub ListView1_Click()
Dim X As Integer
    For X = 1 To ListView1.ListItems.Count
        TextBox1 = ListView1.ListItems(X).Text   ' Wert aus 1. Spalte
        TextBox2 = ListView1.ListItems(X).SubItems(1)  ' Wert aus 2. Spalte
        TextBox3 = ListView1.ListItems(X).SubItems(2)   ' Wert aus 3. Spalte
        
    Next X
End Sub

Dir ist aber klar, dass obiger Code dir nur die letzte Zeile des ListViews in die Textboxen einträgt?

Wenn du die ausgewählte Zeile haben willst

Private Sub ListView1_Click()
   If ListView1.SelectedItem <> "" Then  'Hier bin ich mir nicht sicher
        TextBox1 = ListView1.SelectedItem.Text   ' Wert aus 1. Spalte
        TextBox2 = ListView1.SelectedItem.SubItems(1)  ' Wert aus 2. Spalte
        TextBox3 = ListView1.SelectedItem.SubItems(2)   ' Wert aus 3. Spalte
   End If
End Sub

 

[Abraxas_X]

hallo,
hat super geklappt, wird alles angezeigt.
Besten Dank

 

[Abraxas_X]

Hallo Zvoni,
habe grade versucht mit Listview zu sortieren.
Aber in der Ersten Splate, sortiert er nicht direct nach den ID, sondern nur nach Zahlen.
Wie bekomme ich das richtig hin.

Diesen Code habe ich durch ein Video gefunden:
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

With Me.ListView1
.SortKey = ColumnHeader.Index - 1

If .SortOrder = lvwDescending Then
.SortOrder = lvwAscending

Else
.SortOrder = lvwDescending
End If

.Sorted = True


End With

End Sub

Wäre für jede Hilfe dankbar
Schönen abend noch

 

[Zvoni]

Hallo Zvoni,
habe grade versucht mit Listview zu sortieren.
Aber in der Ersten Splate, sortiert er nicht direct nach den ID, sondern nur nach Zahlen.
Wie bekomme ich das richtig hin.

Diesen Code habe ich durch ein Video gefunden:
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

With Me.ListView1
.SortKey = ColumnHeader.Index - 1

If .SortOrder = lvwDescending Then
.SortOrder = lvwAscending

Else
.SortOrder = lvwDescending
End If

.Sorted = True


End With

End Sub

Wäre für jede Hilfe dankbar
Schönen abend noch

Kein Wort verstanden.
Was meinst du mit ID, und was heisst sortiert nach Zahlen?

Alle Einträge in allen Zellen eines Listview sind String/Text.
Heisst: Sortierung erfolgt alphanumerisch —> „2“ kommt nach „11“

Willst du eine echte numerische Sortierung, musst du das selbst implementieren.
Stichwort: Quicksort