Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListBox Reihenfolge ändern

ListBox Reihenfolge ändern
20.11.2012 14:51:11
Matthias
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
Userbild

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBox Reihenfolge ändern
20.11.2012 16:48:09
Hajo_Zi
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.

AW: ListBox Reihenfolge ändern
21.11.2012 01:35:47
Ass
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

Anzeige
AW: ListBox Reihenfolge ändern
21.11.2012 01:36:42
Ass
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

Anzeige
AW: ListBox Reihenfolge ändern
22.11.2012 08:34:56
Matthias
Danke, hat geklappt.

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige