Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierung in einer ListBox

Sortierung in einer ListBox
Sebastian
Hallo,
ich würde gerne Einträge in einer ListenBox über Buttons verschieben Können
Im Anhang habe ich mal ein Beispiel wie es aussehen sollte.
Wie bekomme ich es hin, das ich zum Beispiel, den Eintrag ganz unten, schrittweise nach Oben Drücken kann.
Vielen Dank für Eure Hilfe
https://www.herber.de/bbs/user/70752.xls
Besten Dank
Sebastian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sortierung in einer ListBox
25.07.2010 20:57:24
Josef

Hallo Sebastian,
bei gebundenen Listboxen muss man den Zellinhalt verschieben.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Private Sub CommandButton1_Click()
  Dim strTmp As String, rng As Range, lngI As Long
  
  With ListBox1
    Set rng = Range(.ListFillRange)
    lngI = .ListIndex
    If lngI > 0 Then
      strTmp = .List(lngI - 1)
      rng.Cells(lngI, 1) = .List(lngI)
      rng.Cells(lngI + 1, 1) = strTmp
    End If
  End With
  
End Sub

Private Sub CommandButton2_Click()
  Dim strTmp As String, rng As Range, lngI As Long
  
  With ListBox1
    Set rng = Range(.ListFillRange)
    lngI = .ListIndex
    If lngI < .ListCount - 1 Then
      strTmp = .List(lngI + 1)
      rng.Cells(lngI + 2, 1) = .List(lngI)
      rng.Cells(lngI + 1, 1) = strTmp
      .ListIndex = lngI + 1
    End If
  End With
  
End Sub

Gruß Sepp

Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige