Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte zwischen 2 ListBoxen verschieben

Werte zwischen 2 ListBoxen verschieben
13.06.2006 15:56:45
HaJo
Hallo zusammen,
ich suche eine Lösung für folgendes Problem.
Ich habe 2 Listboxen welche nebeneinander in einer userForm stehen. In der Mitte sind 2 Buttons (Hinzufügen und Entfernen). In der "rechten" ListBox sind jede Menge Artikel (z.B. Schwamm, hund, Haus, etc.) angegeben. Jetzt möchte ich in der "rechten" ListBox einen Artikel markieren und über den Button hinzufügen in die "linke" Box übernehmen. Wichtig: Der Artikel in der rechten Box soll verschwunden sein. Das gleiche möchte ich dann in der "linken" ListBox machen können mit dem Button "Entfernen". Links soll der Artikel dann verschwunden sein und rechts wieder erscheinen.
Ich denke das ist eine gängige Lösung welche öfters vorkommt. Vielleicht hat ja jemand eine Beispiel Lösungsdatei mit diesem Problem.
Ich würde mich freuen wenn mir jemand helfen könnte.
Danke im Voraus
Gruß
HaJo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte zwischen 2 ListBoxen verschieben
13.06.2006 16:09:26
Bertram
Hi HaJo,
das war erst vor kurzem im Forum (weiß leider den Beitrag nicht mehr bzw. von wem das war), aber das könnte dir als Ansatz auch weiter helfen.
https://www.herber.de/bbs/user/34333.xls
Gruß
Bertram
AW: Werte zwischen 2 ListBoxen verschieben
13.06.2006 21:22:45
HaJo
Prima, vielen Dank.
Gruß
HaJo
AW: Werte zwischen 2 ListBoxen verschieben
13.06.2006 16:17:55
u_
Hallo,
primitiv, aber geht.
Listen für linke und rechte Listbox in Blatt1, A und C ab Zeile2

Private Sub cmdRaus_Click()
If ListBox2.ListIndex > -1 Then
With Sheets(1)
.Cells(ListBox2.ListIndex + 2, 3).Delete shift:=xlUp
.Cells(65536, 1).End(xlUp).Offset(1, 0) = ListBox2
.Cells(1, 1).Sort key1:=.Cells(1, 1), header:=xlYes
End With
UserForm_Initialize
End If
End Sub



Private Sub cmdRein_Click()
If ListBox1.ListIndex > -1 Then
With Sheets(1)
.Cells(ListBox1.ListIndex + 2, 1).Delete shift:=xlUp
.Cells(65536, 3).End(xlUp).Offset(1, 0) = ListBox1
.Cells(1, 3).Sort key1:=.Cells(1, 3), header:=xlYes
End With
UserForm_Initialize
End If
End Sub



Private Sub UserForm_Initialize()
Dim vntDrin, vntDraussen
With Sheets(1)
vntDraussen = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
vntDrin = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown))
End With
ListBox1.List = vntDraussen
ListBox2.List = vntDrin
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Werte zwischen 2 ListBoxen verschieben
13.06.2006 21:23:17
HaJo
Klasse, vielen Dank.
Gruß
HaJo
AW: Werte zwischen 2 ListBoxen verschieben
13.06.2006 21:24:05
HaJo
Das ist es, Dankeschön.
Viele Grüße
HaJo

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige