Hallo zusammen,
ich benutze in einer Userform folgende Schleife:
zÄ = 13
Do
If .LB_Name_ändern.List(.LB_Name_ändern.ListIndex, 1) = Sheets("Anwesenheit").Cells(zÄ, 1).Value Then
Sheets("Anwesenheit").Cells(zÄ, 1).Value = .TB_PNr.Value
Sheets("Anwesenheit").Cells(zÄ, 4).Value = .TB_Name.Value
Else
zÄ = zÄ + 1
End If
Loop While Sheets("Anwesenheit").Cells(zÄ, 4).Value .TB_Name.Value Or Sheets("Anwesenheit").Cells(zÄ, 1).Value .TB_PNr.Value
Die funktioniert aber nicht. Ich bekomme jedes Mal den Fehler: Laufzeitfehler 6: Überlauf
Was ist daran falsch?
Gruß,
Willi