Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige