Office: ListBox mit mehrspaltiger Tabelle bestücken und einzelne Zeilen löschen

Wieder mal Hallo zusammen!

Bei meinen Experimenten bin ich auf ein weiteres Problem aufgrund meiner Unwissenheit gestoßen.

Ich möchte eine ListBox mit einer mehrspaltigen Tabelle bestücken.
Mit AddItem hab ich das nicht hinbekommen.
Rumgesucht und nun folgenden Code gefunden:
Code:

Klappt wunderbar, auch wenn es mit Sicherheit alles andere als elegant ist.

Nun möchte ich dann eine markierte Zeile in der ListBox von der Tabelle löschen. Und zwar so, dass in der Tabelle die ganze Zeile gelöscht wird und nicht nur die Werte.

Gefunden hab ich nur folgendes:
Code:

Aber das klappt ja nicht, weil ich eben die ListBox nicht mit AddItem bestückt hab.

Ich muss also entweder das Bestücken ändern, oder das Löschen.
Nur alleine mein völliges Unvermögen hindert mich daran.

:)

 

Hi!
Grob nach diesem Schema:
Code:

Du solltest Deine ListBox nach Möglichkeit mit List1.List = Range(...).Value füllen.
Außerdem bietet sich an, den Range dynamisch zu ermitteln, denn Du willst ja Zeilen in der Tabelle löschen.

Gruß Ralf

 

... oder willst Du einen Eintrag in der ListBox löschen?

 

Der Eintrag soll aus der Tabelle gelöscht werden und somit natürlich auch aus der ListBox.


Also anfänglich hatte ich ja diesen Code hier zum befüllen (klappt ja auch für eine einspaltige ListBox):
Code:

Das lieferte immer nur die erste Spalte, bzw. reihte die Zeile in die erste Spalte.
Hab dann noch ein wenig mit einer zusätzlichen Variablen "lSpalte" probiert, kam aber auf keinen grünen Zweig

Der von dir angegeben Code "Tabelle1.Rows(List1.ListIndex + 2).Delete" macht nicht wirklich was. Nicht mal ein Fehler wird ausgegeben.


Ach ja....hier die eigentliche Quelle, woher ich den Code für das UserForm hab:
Eine ganz einfache Eingabemaske für eine Excel® Tabelle erstellen - für Anfänger geeignet!

 

Hi!
Mein Code macht schon etwas, er löscht Zeilen in Tabelle 1.
Meine Frage hast Du allerdings nicht beantwortet!
Ich habe doch bereits geschrieben, wie Du die Listbox füllen sollst.
Code:

Dann klappt auch Dein:
Code:

... wenn Du die markierte Zeile der ListBox löschen willst.

Gruß Ralf

 

Hm...okay.

Ich musste nur die ganzen Bezeichnungen abändern. List1 in ListBox1 und so. Da tut jetzt dein Code genau das, was er soll. Danke!
Und deine Frage hätte ich auch beantwortet. Glaub ich. Zumindest wenn die Frage nach dem was gelöscht werden soll meinst. Eben die Zeile in der Tabelle.

Aber bitte mal für einen absoluten Noob....

Wie muss ich die Range definieren?
Es geht um die Spalten A bis M auf Tabelle3 mit dem Namen "Anmeldeliste".
Die Anzahl der Zeilen ist dynamisch, aber es werden wohl nie mehr als 30 Zeilen sein. Somit dürfte da ein A2:M31 ausreichen. Wenn das denn möglich ist.
Bei mir fehlts eben vom Grund auf. Hab erst gestern das erste mal von UserForms gehört und in VBA probier ich mich erst seit einer Woche.

Anbei nochmal der gesamte Code auf dem UserForm:
Code: