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

drag and drop

Forumthread: drag and drop

drag and drop
06.02.2009 20:50:23
Klohs
hallo alle zusammen
habe im archiv ansätze für eine aufgabe die ich mir gestellt habe gefunden.
https://www.herber.de/bbs/user/22558.xls
doch kann man es auch so gestalten das die ausgewählten namen aus liste 1 verschwinden wenn sie ausgewählt sind und in liste 2 stehen
liste 1 wird kleiner liste 2 wird länger
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: drag and drop
06.02.2009 21:23:50
Josef
Hallo Klohs, (fiese Eltern?)
probier mal diesen Code.
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Dim blnAction As Boolean
Private Sub CommandButton1_Click()
    ListBox2.Clear
    ListBox1.Clear
    ListBox1.AddItem "Florian"
    ListBox1.AddItem "Nicole"
    ListBox1.AddItem "Robert"
    ListBox1.AddItem "Klaus"
    ListBox1.AddItem "Jürgen"
    ListBox1.AddItem "Jutta"
    ListBox1.AddItem "Peter"
    ListBox1.AddItem "Karl"
    ListBox1.AddItem "Ute"
End Sub

Private Sub ListBox1_Click()
    If blnAction Then Exit Sub
    ActiveCell = ListBox1.Value
    ListBox2.AddItem ListBox1.Value
    blnAction = True
    ListBox1.RemoveItem (ListBox1.ListIndex)
    ListBox1.ListIndex = -1
    blnAction = False
End Sub


Private Sub UserForm_Initialize()
    ListBox1.AddItem "Florian"
    ListBox1.AddItem "Nicole"
    ListBox1.AddItem "Robert"
    ListBox1.AddItem "Klaus"
    ListBox1.AddItem "Jürgen"
    ListBox1.AddItem "Jutta"
    ListBox1.AddItem "Peter"
    ListBox1.AddItem "Karl"
    ListBox1.AddItem "Ute"
End Sub

Gruß Sepp

Anzeige
AW: drag and drop
06.02.2009 21:29:00
Klohs
danke josef
das ist die lösung
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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