Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

ListBox Reihenfolge ändern

Betrifft: ListBox Reihenfolge ändern von: Matthias Hermann
Geschrieben am: 20.11.2012 14:51:11

Hallo zusammen,
ich habe eine Listbox, bestehend aus mehreren Spalten und Zeilen (Bild der Userform beigefügt).
Durch drücken des Buttons "Position änderen" soll eine markierte Zeile an eine bestimmte Position, die in einer InputBox eingetragen wird, verschoben werden, zB die letzte Zeile an die Position 3.

Hat irgendjemand eine Lösung, wie man dies bewerkstelligen kann.

Vieln Dank schon Mal

Matthias


  

Betrifft: AW: ListBox Reihenfolge ändern von: Hajo_Zi
Geschrieben am: 20.11.2012 16:48:09

Ich benutze schon Version 2013 aber selbst diese Version kann aus einem Bild eine UserForm erstellen, geschweige den noch eine Inputbox einfügen.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.

GrußformelHomepage


  

Betrifft: AW: ListBox Reihenfolge ändern von: Ass
Geschrieben am: 21.11.2012 01:35:47

Hallo Matthias
Beispiel bei 4 Spalten

Private Sub CommandButton1_Click()
Dim Pos&
Pos = Application.InputBox("nnn", "nnn", , , , , , 1) - 1
  'Ensure ListBox contains list items
  If ListBox1.ListCount >= 1 Then
    'If no selection, choose last list item.
    If ListBox1.ListIndex = -1 Then
      MsgBox ("nix markiert.")
      Else
      ListBox1.AddItem ListBox1.Text, Pos
      ListBox1.List(Pos, 1) = ListBox1.List(ListBox1.ListIndex, 1)
      ListBox1.List(Pos, 2) = ListBox1.List(ListBox1.ListIndex, 2)
      ListBox1.List(Pos, 3) = ListBox1.List(ListBox1.ListIndex, 3)
      ListBox1.RemoveItem (ListBox1.ListIndex)
      ListBox1.ListIndex = -1
    End If
  End If
End Sub



  

Betrifft: AW: ListBox Reihenfolge ändern von: Ass
Geschrieben am: 21.11.2012 01:36:42

Hallo Matthias
Beispiel bei 4 Spalten

Private Sub CommandButton1_Click()
Dim Pos&
Pos = Application.InputBox("nnn", "nnn", , , , , , 1) - 1
  'Ensure ListBox contains list items
  If ListBox1.ListCount >= 1 Then
    'If no selection, choose last list item.
    If ListBox1.ListIndex = -1 Then
      MsgBox ("nix markiert.")
      Else
      ListBox1.AddItem ListBox1.Text, Pos
      ListBox1.List(Pos, 1) = ListBox1.List(ListBox1.ListIndex, 1)
      ListBox1.List(Pos, 2) = ListBox1.List(ListBox1.ListIndex, 2)
      ListBox1.List(Pos, 3) = ListBox1.List(ListBox1.ListIndex, 3)
      ListBox1.RemoveItem (ListBox1.ListIndex)
      ListBox1.ListIndex = -1
    End If
  End If
End Sub



  

Betrifft: AW: ListBox Reihenfolge ändern von: Matthias Hermann
Geschrieben am: 22.11.2012 08:34:56

Danke, hat geklappt.


 

Beiträge aus den Excel-Beispielen zum Thema "ListBox Reihenfolge ändern"