Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Listbox Einträge verscheiben"
Mehrfachauswahl aus ListBox auslesen Gefilterte Daten in eine ListBox einlesen
Dateien aus Listbox auslesen und öffnen Listbox-Eintrag durch Mausbewegung markieren
ListBox-Einträge auswechseln Horizontal angeordnete Elemente in eine ListBox übernehmen
Tabellenblattnamen in eine ListBox einlesen ListBox bei Eintrag erweitern