Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
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
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform mit DragAndDrop zw. Listboxen

Userform mit DragAndDrop zw. Listboxen
26.09.2021 17:12:32
Tim
Hallo zusammen,
ich habe ein Userform mit 1 Listbox mit verschiedenen Werten und 4 Listboxen. Zwischen diesen Boxen sollen die Werte per drag and drop hin und her geschoben werden können. Die Werte dürfen immer nur in einer der Listboxen vorhanden sein.
https://www.herber.de/bbs/user/148277.xlsb
Hat jemand vielleicht eine Idee, wie das umgesetzt werden kann?
Ich habe hier und da schon diverse Möglichkeiten gefunden, leider aber nichts, was die Werte verschiebt und nicht nur kopiert. Was mein Wissen über Userforms angeht, stehe ich noch ziemlich am Anfang – von daher wäre ich über Hinweise und kleine Erklärungen sehr dankbar.
Vielen Dank für eure Mühen!
Tim

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
26.09.2021 22:11:08
ralf_b
nett von dir uns nicht an deinen bisherigen Fehlversuchen teilhaben zu lassen.
Erspart ne Menge Lesestoff.
Deshalb Hier etwas für dich. Kann ja nicht wissen ob du das schon kennst. https://jkp-ads.com/Articles/ExcelUserformDragDrop.asp
AW: Userform mit DragAndDrop zw. Listboxen
26.09.2021 23:42:01
Tim
Hallo ralf_b,
danke für deine Antwort. Die Seite hatte ich mir auch schon angeschaut, aber da fehlt es mir schlichtweg an breiterem Wissen ... Aber darum frag ich ja hier nach.
Den Code aus meiner Datei https://www.herber.de/bbs/user/148282.xlsb (jetzt ist er mit drin) habe ich aus einem Forum kopiert und angepasst. Einen Teil davon kann ich nachvollziehen, da genügend kommentiert wurde.
Was mir jetzt fehlt ist der Teil, wo der Eintrag nach dem Verschieben aus der Liste entfernt wird, nachdem er in der neuen Liste eingefügt wurde.
Beste Grüße
Tim
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
27.09.2021 09:51:26
ralf_b
Moin,
Das Beispiel von JKP (die Zipdatei) funktioniert bei mir, aber beim Code aus dem Beitrag Wird auch der Wert aus der Quelle nicht gelöscht. Ich habe nicht herausbekommen woran es liegt. Aber ich bin auch kein Spezialist was Klassenprogrammierung angeht.
Fakt ist aber das solche Drag and Dropgeschichten nicht zum VBA Excel Tagesgeschäft gehören. Ich bezweifele das du hier oder in anderen Foren viel Feedback bekommen wirst. Das ist nicht mal eben so zusammengeklickt. Der Rahmen für Code für Lau bzw. Hilfe zur Selbsthilfe wird da locker gesprengt.
Ich schätze du kommst schneller zum Zie wenn du weniger ambitionierte Lösungen anstrebst. z.b. mittels Buttons die Elemente verteilen.
Trotzdem toi toi toi.
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
27.09.2021 14:34:28
Mullit
Hallo,
Du brauchst nur noch über den ListIndex der 1. Box per .RemoveItem das Element entfernen, hab Dir das mal anhand des altbek. M$-Bsp zu Drag&Drop in die Datei gepackt:
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/listbox-control-dataobject-object-mousemove-event-startdrag-settext-methods-exam
https://www.herber.de/bbs/user/148290.xlsm
Gruß, Mullit
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
27.09.2021 16:25:06
Herbert_Grom
Hallo Mullit,
das ist ja man geil! VIELEN Dank! So habe auch ich noch wieder etwas dazu gelernt!
Servus
AW: Userform mit DragAndDrop zw. Listboxen
27.09.2021 22:50:00
Mullit
Hallo Herbert,
ja sauber, Danke fürs Feedback, ist schon cool, dass sowas in VBA geht, allerdings nur mit Text, in VB.NET oder auch mit einigen VB6 Controls geht da auch was mit Objekten, wenn ich mich richtig erinnere...
Gruß, Mullit
AW: Userform mit DragAndDrop zw. Listboxen
27.09.2021 18:29:59
Tim
Hi Mullit,
großartig! Das hatte ich gesucht, Danke Dir!
Jetzt ist aber doch noch eine Kleinigkeit aufgeploppt:
Ich habe den Code für das Verschieben von links nach rechts nochmal kopiert und für rechts nach links angepasst. Klappt auch.
Aber:
Wenn ich ein paar Werte nach rechts verschoben habe und versehentlich in der Listbox doppelklicke oder verschiebe, holt es sich den noch markierten Wert aus der Nahbarlistbox und ersetzt aber deren Wert mit dem Wert aus der eigentlichen Box (ich verschiebe Nr4 nach rechts, dieser ist noch blau hinterlegt; ich nehme Nr8 aus der linken Box und verschiebe Nr8 nach unten; Nr 8 gibts links doppelt, Nr4 aus rechter Box ist weg).
https://www.herber.de/bbs/user/148295.xlsb
Kann man die Werte nach dem Verschieben abwählen oder das irgendwie anders verhindern?
Beste Gruesse
Tim
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
28.09.2021 12:21:17
Tim
Wow, Danke Mullit!
Eine (vielleicht) letzte Frage noch:
Wie kann ich beim Initialisieren die Werte aus Tabelle1 von A2:A7 mit deinem Code einlesen?
Bis jetzt hatte ich das über
UserForm1.ListBox1.RowSource = "A2:A7"
eingelesen, dass beißt sich aber im restlichen Code verständlicherweise mit "pvargItem" und "pvargIndex".
Beste Grüße
Tim
AW: Userform mit DragAndDrop zw. Listboxen
28.09.2021 18:20:47
Mullit
Hallo Tim,
null Problemo, einfach als Array einlesen, hab noch einen kl. Fehler entfernt:
https://www.herber.de/bbs/user/148326.xlsb
Gruß, Mullit
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
28.09.2021 18:35:42
Mullit
Hallo nochmal,
so ein Schweinepriester hehe, da gab's immer noch einen Runtime-Error, but now finally ;-):
https://www.herber.de/bbs/user/148327.xlsb
Gruß, Mullit
AW: Userform mit DragAndDrop zw. Listboxen
28.09.2021 19:38:26
Tim
Vielen Dank, funktioniert super!
Beste Grüße
Tim
AW: Userform mit DragAndDrop zw. Listboxen
29.09.2021 10:16:04
Tim
Hallo noch mal,
jetzt hab ich doch noch eine Frage ... Eigentlich wollte ich es vermeiden, doch jetzt stellt sich raus, dass es so doch besser gehen könnte:
Wenn die Listbox1 mit Werten aus mehreren Spalten befüllt wird, klappt das so nicht:
ListBox1.List() = Range("A2:D10").Value
Oder geht das nur über AddItem?
https://www.herber.de/bbs/user/148339.xlsb
Wenn dann die Werte aus einer Zeile in Listbox2 verschoben werden, müssten die Werte aus den Nachbarspalten auch mit übertragen werden. Kann man die ganze Zeile sozusagen in einen Container packen und den komplett verschieben? Ich wollte erst die Spalten miteinander verketten, aber da alle Werte von unterschiedlicher Breite sind, sieht das ziemlich verschroben aus.
Beste Grüße
Tim
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
29.09.2021 20:40:23
Tim
Einen RIESEN Dank, Mullit!!!
Erstaunlich, was da so alles geht in Excel!
Leider versteh ich nur noch Bahnhof in den letzten 2 Subs ... Könntest du noch ein paar Kommentare anfügen, was da gerade in der Zeile passiert?
Vielen Dank und beste Grüße
Tim
AW: Userform mit DragAndDrop zw. Listboxen
29.09.2021 23:04:34
Tim
Jetzt steh ich bissl aufm Schlauch ...

Private Sub UserForm_Initialize()
ListBox1.List() = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3)).Value
End Sub
Im Code steht die "3" für die Anzahl der Spalten, da ich noch mehr Spalten eingefügt habe, änderte ich die "3" in eine "6". Leider passiert da aber nichts. Mit einer "2" für nur 2 Spalten klappts ...
Ich bin ratlos.
Woran liegt das?
Beste Grüße
Tim
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
30.09.2021 00:03:07
Mullit
Hallo,
das ist der einfachste Part, Du mußt nur ColumnCount für die angez. Spalten im Eig.-schaftsfenster der Listboxen auf 6 hochsetzen...;-)
Gruß, Mullit
AW: Userform mit DragAndDrop zw. Listboxen
30.09.2021 00:30:44
Mullit
ach ja, Du kannst die Spalten für bel. Pos. im Init-Event auch dynamisch anpassen, häng ich nochmal an, Erklärungen anbei...;-)
https://www.herber.de/bbs/user/148355.xlsb
Gruß, Mullit
AW: Userform mit DragAndDrop zw. Listboxen
30.09.2021 21:41:36
Tim
Super! Funzt alles!!!
Eingangs schrieb ich ja schon mal, dass ich, was Userforms angeht, noch am Anfang stehe.
Leider scheiterts an der hoffentlich letzten Spezifizierung.
Textbox2 befindet sich jetzt auf einer Multipage. Leider klappts dann mit dem Verschieben zurück in Listbox1 nicht mehr ...
Beste Grüße
Tim
Anzeige
AW: Userform mit DragAndDrop zw. Listboxen
27.09.2021 09:30:35
Herbert_Grom
Hallo Tim,
ich weiß ja, dass ich vieles von Excel nicht weiß, auch nach 27 Jahren nicht. Und deshalb weiß ich auch nicht, dass Werte per drag and drop zwischen ListBoxen hin und her geschoben werden können. Aber ich bin wirklich sehr gespannt, da ich mich echt freue, nach wie vor, immer wieder noch Neues in Excel dazuzulernen!
Servus

302 Forumthreads zu ähnlichen Themen

Drag & Drop deaktivieren?
Steffi

Hallo liebe Spezialisten,
unter "Optionen" habe ich ja die Möglichkeit "Drag & Drop von Zellen" zu deaktivieren.
Das wirkt sich dann aber auf alle geöffneten Dateien aus :-(
Gibt es eine Möglichkeit mit Hilfe eines Makro oder ähnlich Drag & Drop nur bei einer bestimmten Dat...
28.08.2008 14:46:27
Thread-ID: 1005450
3 Beiträge
Anzeige
Formelbezu zw. Dateien (Drag&Drop) mehrere Instanz
Volker

Hallo,
ich weiß (und kann) eine Formel in Excel erstellen, die den Inhalt einer Zelle aus einer anderen Datei anzeigt ("=" & anklicken auf das entsprechende Feld der anderen Datei). Dies geht meineserachtens nur, wenn die zwei Sheets in der gleichen Excel-Instanz geöffnet sind.
Nun...
07.11.2008 12:06:00
Thread-ID: 1022616
2 Beiträge
Formelbezu zw. Dateien (Drag&Drop) mehrere Instanz
Volker

Hallo,
ich weiß (und kann) eine Formel in Excel erstellen, die den Inhalt einer Zelle aus einer anderen Datei anzeigt ("=" & anklicken auf das entsprechende Feld der anderen Datei). Dies geht meineserachtens nur, wenn die zwei Sheets in der gleichen Excel-Instanz geöffnet sind.
Nun...
07.11.2008 12:15:00
Thread-ID: 1022620
2 Beiträge
Anzeige
Drag-and-Drop von Buttons innerhalb Worksheets
Buttons

Hallo!
Ich bin auf der Suche, nach einer Möglichkeit Buttons innerhalb eines Excel Arbeitsblattes zu verschieben. Das Ganze soll ähnlich dem verschieben von Felder in Pivot Tabellen erfolgen und -soweit möglich- auch noch funktionieren, wenn das Arbeitsblatt später geschützt wird.
Danke...
01.09.2009 09:38:14
Thread-ID: 1099751
6 Beiträge
Dateien per Drag & Drop aus Outlook | Herbers Excel-Forum
Marko
Hallo,
ich habe bei der Suche nach einer Drag & Drop Lösung von Dateien in eine ListBox
im Archiv folgenden Beitrag aus dem Jahr 2006 gefunden.
https://www.herber.de/forum/archiv/800to804/t800851.htm
Option Explicit Const vbDropEffectNone = 0 Const vbDropEffectCopy = 1 Const vbDro...
22.01.2010 21:15:21
Thread-ID: 1132241
2 Beiträge
zeilen per drag & drop verschieben
Lorenz

Hallo Excelianer,
Ich möchte per Drag & Drop ganze Zeilen (auch mehrere) in bereits benutzten Bereich verschieben. Der benutzte Bereich soll aber nicht überschrieben werden, sondern die Zeilen eingefügt werden. Im Anschluß sollen die dadurch entstandenen leerzeilen gelöscht werden. Zum...
28.03.2010 16:42:53
Thread-ID: 1148936
3 Beiträge
Zeile per Drag & Drop verschieben?
Holger

Hallo,
ein zauberhaftes Problem:
Ich habe Zeilen z.B von A2 bis I2 mit Daten.
Nun möchte ich die Zelle A2 aktivieren und die Zellen (also von A2 bis I2) per Drag & Drop an einen anderen Ort verschieben, z.B nach M2.
Geht eine solche Zauberei?
21.05.2010 12:26:24
Thread-ID: 1158251
4 Beiträge
Drag & Drop mehrspaltige Listbox
Detlef

Hallo Excel-Profis´s
ich habe in der Excelhilfe ein Beispiel für Drag & Drop von Listbox zu Listbox gefunden; leider funktioniert das nur bei einspaltigen Listboxen
Ich habe aber als Ausgang (Listbox1) eine zweispaltige Listbox und in Listbox2 sollen die Daten auch wieder zweispalti...
12.06.2010 21:06:53
Thread-ID: 1161563
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
1
1
2
5
1
2
3
2
2
5
6
3
2
9
5
2
4
2
2
4
4
3
9