Office: Listbox Zeilen in eine Tabelle kopieren/verschieben

Hallo zusammen!

Hier mal wieder der blutige Anfänger.
Ich hab hier ein Userform mit einer Listbox, befüllt aus Tabelle1 (Spalten A bis O).
Jetzt will ich die Zeilen der Listbox per Button in Tabelle2 verschieben (also Zeile kopieren und dann den Inhalt löschen. Und zwar die jeweils markierte Zeile in der Listbox.
Tabelle2 hat in der ersten Zeile die Überschrift, es soll also ab Zeile2 reinkopiert werden.


Klappt das eigentlich auch mit Mehrfachmarkierungen? Sprich man kann irgendwie in der Listbox mehrere nichtzusammenhängende Zeilen markieren und diese dann kopieren/verschieben?

:)

 

Hi,

wie füllst du die ListBox - mittels AddItem oder hast du den Zellbereich als RowSource eingetragen? Wenn letzteres der Fall ist, kannst du keine Zeilen löschen. Andernfalls so:

Code:

 

Habs mit RowSource gemacht, weil ich das mit AddItem nicht hinbekommen hab.

Code:

Es sollten eben nur Zellen aus bestimmten Spalten angezeigt werden, die Zeile aber trotzdem als ganzes verarbeitet werden.

Ach ja....das Löschen mach ich aktuell so:
Code:

ich muss also nur noch die komplette Zeile in in die andere Tabelle (namentlich: Tabelle10) kopiert bekommen.

 

Wie schon geschrieben - wenn die ListBox mit RowSource gefüllt wird (also mit der Tabelle "direkt verknüpft" ist) kann man keine Zeilen aus ihr löschen. Fülle sie über ein Array:

Code:

 

Ähm....ich lösch aber einzelne Zeilen.

Eben mit
Code:

Jetzt möchte ich nur noch die Zeile in die Tabelle10 kopieren. Und da soll sie in die erste freie Zeile kommen.
Bislang kann ich das nur in die gleiche Zeile, wie sie in Tabelle6 drinsteht.

Als "Hauruck-Methode" folgendes (durch Abwandeln):
Code:

Da müsste nur das "ListBox1.ListIndex" im Zielort eben die erste freie Zeile sein.

 

Das heißt für mich: nach dem Eintragen der ausgewählten Zeilen aus der ListBox in die Tabelle sollen die Einträge aus der ListBox gelöscht werden - und genau das macht ein Code.

 

Na sicher macht das ein Code. Daher hab ich ja hier gefragt, welcher das denn ist.
Wie gesagt, grob hab ich's hinbekommen. Nur kopiert mein Code die Zeile eben nicht in die erste freie Zeile sondern in die äquivalente (ListIndex) aus der Quelltabelle.

 

Sorry, da ist das "m" vor "ein" verloren gegangen - ich meinte natürlich: genau das macht "mein Code".

 

Achso.

Welchen Code meinst du jetzt?
Der von ganz oben funktioniert ja nur wenn's über AddItem gemacht wurde, oder?

Fehlermeldung:
Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftenfelds ungültig.
ListBox1.RemoveItem ListBox1.List(lngZaehler - 1)


BTW....dieses "lngErste = IIF...."
Ist das ein Tippfehler oder soll das nicht IF heißen?


Insgesamt denke ich gerade, dass wir unabsichtlich aneinander vorbeireden.
Kann es sein, dass du nur das Löschen lösen wolltest?

 

Man kann immer nur auf Fragen so antworten wie sie gestellt und durch Außenstehende interpretiert werden können und ich habe meine Codes so geschrieben wie ich deine Beiträge interpretiert habe.

Dass die Auswahl der ListBox in die Tabelle übertragen werden soll steht außer Frage (das macht mein Code von 11:46 auch), aber was soll denn nun gelöscht werden - die Zeilen in der ListBox oder die Zeilen im Tabellenblatt oder beides?

Wenn nur die Zeilen in der ListBox gelöscht werden sollen, im Tabellenblatt jedoch erhalten bleiben sollen, dann geht es nicht, wenn der ListBox RowSource zugewiesen wurde. Aber wenn die ListBox mit dem Code aus meinem Beitrag von 13:37 gefüllt wird (oder per AddItem), ist das möglich - und zwar mit dem Code aus meinem Beitrag von 11:46.

Nochmal zusammengefasst: wenn die ListBox mit dem Code aus Beitrag 13:37 (oder per AddItem) gefüllt wird, die ausgewählten Zeilen aus der ListBox ins Tabellenblatt geschrieben und anschließend aus der ListBox gelöscht werden sollen, dann macht das der Code aus Beitrag 11:46.



[EDIT] Zur Frage von IIF - das ist nichts anderes als die WENN-Formel und sit völlig korrekt.

 

Hm...
Also die Zeilen sollen von Tabelle6 nach Tabelle10 verschoben und somit dann auch aus der Listbox entfernt werden.

Mit ein bisschen rumprobieren kann ich die Zeilen kopiern und dann auch löschen.
Nur eben kopiert mein Code die Zeile genau in die entsprechende Zeile aus der sie kommt. Sie soll aber in die erste freie Zeile kopiert werden.

Löschen:
Code:

Kopieren:
Code:

 

Die Zeile mit IFF(....) in meinem Code ermittelt die erste freie Zeile in Spalte A.

Und: stelle deine Fragen das nächstemal bitte so, dass sie nicht mehrdeutig interpretiert werden können. *wink.gif*

 

Ja, das mit der richtigen Fragestellung ist tatsächlich immer das schwierigste.

Ich sag auf jeden fall mal Danke, dass du dich so bemüht hast um mir zu folgen.

Trotzdem gibts bei dem von dir genannten Code einen Fehler:
Code:

Ich häng jetzt mal eine Testversion an, damit du das ganze auch mal siehst.
Der Code ist im Userform "YYY" auf den CommandButton11 gelegt (Beschriftung: -frei-)
Zuerst auf "Übersicht" klicken und dann auf "YYY". Dann bist du da.

 

Die Zeile muss korrekt heißen

Code:

ABER - da du (trotz mehrfacher Hinweise!!) nach wie vor der ListBox die RowSource zuweist (offensichtlich willst du unbedingt dabei bleiben), GEHT ES NICHT AUF DIESEM WEG!

Lösche die Zeile aus dem Tabellenblatt und weise anschließend RowSource neu zu.

 

Wenn ich wüsste wie das geht, würd ich's wahrscheinlich machen.