ListBox mit For Schleife durchlaufen

For y = 0 To Me.ListBox3.ListCount - 1
Set Treffer = WSZiel.Range(WSZiel.Cells(6, 3), WSZiel.Cells(45, 3)).Find(What:=Me.  _
_ListBox3.List(y, 0).Text, lookat:=xlWhole)
If Not Treffer Is Nothing Then
Next y

 ElseIf Me.ListBox3.List(y, 2) = "ganztägig" Then
SpalteZiel = SpalteZiel + 12 'erste Spalte, in der ein Name  _
steht
For Spalte3 = SpalteZiel To (SpalteZiel + 39)
If WSZiel.Cells(1, Spalte3).Value = Me.ListBox3.List(y, 1) Then  _
'Name des Mitarbeiters, der die Qualifizierung durchführen soll
WSZiel.Range(WSZiel.Cells(6, Spalte3), WSZiel.Cells(45, Spalte3) _
).Value = "0"
WSZiel.Cells(ZeileZiel, Spalte3).Value = "1"
End If
Next Spalte3
End If