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