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"