Listbox Einträge verscheiben
18.03.2005 02:17:37
Conny
Ich habe eine Listbox: Team_Pool
Row Source: alle_Teams
und einen CommandButton: team_tiefer
Private Sub team_tiefer_Click()
Dim sTxt As String
If Team_Pool.ListIndex = -1 Then
Beep
MsgBox "Sie müssen ein Team auswählen"
Exit Sub
End If
With Team_Pool
If .ListIndex < .ListCount - 1 Then
sTxt = .List(.ListIndex + 1)
.List(.ListIndex + 1) = .List(.ListIndex) '*Fehlermeldung
.List(.ListIndex) = sTxt
.Selected(.ListIndex + 1) = True
End If
End With
End Sub
Nun bekomme ich, wenn ich auf den Knopf drücke, folgende *Fehlermeldung:
Laufzeitfehler '70':
Eigenschaft List konnte nicht gesetzt werden.Zugriff verweigert.
Kann mir jemand sagen was ich falsch gemacht habe?
lieben Gruß Conny