Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1044to1048
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
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige