Listbox Einträge verscheiben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Listbox Einträge verscheiben
von: Conny
Geschrieben am: 18.03.2005 02:17:37
Hallo Leute,
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
Bild

Betrifft: AW: Listbox Einträge verscheiben
von: Conny
Geschrieben am: 18.03.2005 02:29:50
Noch ein kleiner Anhang, sollte jemand meinen Fehler finden, wollte ich noch fragen, ob es ein Problem ist, wenn der Name "alle_Teams" später mehrspaltig ist (ist er derzeit nicht!), aber später sollen in der Listbox 2 Spalten stehen, die natürlich gemeinsam verschoben werden sollen.
Bild

Betrifft: AW: Listbox Einträge verscheiben
von: Bert
Geschrieben am: 18.03.2005 02:55:22
Wenn mit RowSource gefüllt wurde, können Item nicht verschoben werden!
Bert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Listbox Einträge verscheiben"