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