Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform mit DragAndDrop zw. Listboxen

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

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

Forumthreads zu verwandten Themen

Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 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
drag and drop
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...
06.02.2009 20:50:23
Thread-ID: 1047906
3 Beiträge
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
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
Anzeige
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
Excel Tipp:Zellen mit drag&drop kopieren
Helena

Du möchtest bei Excel 2007 Zellen auf einen Klick und ohne Fehlvorgänge an eine andere Stelle kopieren?
Mit diesem Tipp geht das kopieren nicht nur schnell sondern auch fehlerfrei!
Das Video dazu hier: http://www.youtube.com/watch?v=YiVx6G8HoHE
1. Markiere die zu kopierenden Zellen...
03.12.2010 12:14:30
Thread-ID: 1189893
6 Beiträge
Anzeige
ComboBox drag and drop - Zielzelle nicht leer
Wüstenfuchs

Hallo liebe Excelfreunde,
ich habe in einem Tabellenblatt eine Combobox eingefügt, aus der ich Daten per Drag heraushole und sie in einer Zielzelle per Drop einfüge. Mein Problem: Das Einfügen soll nicht möglich sein, wenn die Zielzelle bereits Inhalte enthält, um ein Überschreiben auszusch...
14.02.2011 12:15:44
Thread-ID: 1200671
7 Beiträge
Eigenartiges Verhalten bei Drag and Drop
Peter

Hallo alle zusammen,
ich habe folgendes Problem:
mittels eines OleDrag and Drop Feldes ermittle ich den Pfad einer ganzen Reihe von Dateien (jede soll dabei einzeln ausgewählt werden) Im Anschluss werden die Dateien in einen anderen Ordner kopiert und umbenannt. Siehe dazu folgende Date...
19.09.2011 00:23:01
Thread-ID: 1230477
4 Beiträge
CellDragAndDrop aus/ein
Herbert

Hallo,
folgendes Phänomen habe ich: Mit den u. a. Codes schalte ich CellDragAndDrop aus und ein. Beim Start und beim aktivieren ausschalten, beim verlassen und schließen der Mappe wieder einschalten. So weit so gut. Bis auf die Tatsache, dass der Haken bei CellDragAndDrop beim schließen der...
15.11.2011 18:15:37
Thread-ID: 1237845
3 Beiträge
Datenreihen per Drag&Drop ins Diagramm
Olaf

Liebe Leute,
in Excel2003 war es ganz einfach, Datenreihen in Diagramme hinzuzufügen. Das ging einfach per Drag&Drop. Das gelingt mir in Excel2010 nun nicht.
Kann mir jemand sagen, wie ich das auf dem alten Weg auch in Excel2010 bewerkstelligen kann?
Vielen Dank
Olaf
...
08.09.2012 12:55:42
Thread-ID: 1277848
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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