ich möchte gerne eine ListBox mit 4 Spalten mit einer For Schleife Zeile für Zeile durchlaufen. Leider gibt er mit meinen Anweisungen die Werte aus der Listbox nicht aus.
Mein code sieht so aus
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
Zudem habe ich danach noch einige If Schleifen in dieser For schleife geschachtelt 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
Der Code läuft durch aber die Werte aus den Lustboxen werden nicht übernommen. Wenn ich mit der Quick Info im Debuggermodus über die Lisbox werte gehe sagt er "Eigenschaft List konnte nicht abgerufen werden..".Weiss jemand woran das liegen könnte.
Besten Dank
Chris