Listbox Daten übergeben und bearbeiten

Guten Morgen zusammen,
ich habe eine Zelle, wo man reinklickt und dann öffnet sich eine Userform mit einer Listbox. Diese Listbox zieht sich die Daten aus einer Tabelle im zweiten Worksheet. Diese Listbox soll aber nur die Spalteninformation von "Aufgaben" und nur die ersten 3 Informationen (Brot backen. Küche sauber machen. Tisch decken.) anzeigen, nicht die "Nr." aus der Tabelle.
Wenn z.B. die Auswahl getroffen wurde "1.1 Brot backen" und "1.3 Tisch decken" und auf den Button "Übernehmen" geklickt wird, sollen die Informationen im Worksheet "Tabelle1" in einer Zelle hintereinander geschrieben werden (das funktioniert auch). Jetzt möchte ich aber, dass ich in diese Zelle reinklicke und den Text ändern, z.B. aus "Brot backen" --> "Brot einkaufen" manuell abändern. Wenn ich dann die Userform nochmal öffne, möchte ich dann einen den Punkt "1.2 Küche sauber machen" markieren und einfach in die gleiche Zelle ans Ende geschrieben bekommen, ohne das sich mein manuell geänderter Text gelöscht wird. Wenn ich die Userform im Anschluss wieder öffne und dann den geänderten Punkt nicht mehr haben möchte, soll ich diesen abwählen können und soll nicht mehr in der Zelle angezeigt werden. Der Punkt "1.1 Brot backen" soll aber nicht in der Tabelle, wo die Listbox die Daten hernimmt überschrieben werden, soll dauerhaft gleich bleiben.
Ein letzter Punkt noch, die Zelle, die ich anklicke, um die Userform zu öffnen, soll immer wenn ich darauf klicke geöffnet werden, ohne das ich immer in ein anderes Feld klicken muss.
Könnt ihr mir hierbei weiterhelfen (https://www.herber.de/bbs/user/156873.xlsm)? Vielen vielen Dank.
Viele Grüße Marcus

Hallo Marcus,
die runtergeladene Datei mit der rechten Maustaste anklicken --> auf Eigenschaften gehen --> und zulassen. Dann sollte es gehen.


Option Explicit
Dim iZeile&
Private Sub btnTabellenblatt_Click()
Dim i&, Daten$
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Daten = Daten & " " & ListBox1.List(i, 1)
Next
Sheets("Tabelle1").Range("C2").Value = Mid(Daten, 2)
UserForm1.Hide
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
WertAendern
End Sub
Private Sub WertAendern()
Dim arrList()
arrList = ListBox1.List
arrList(iZeile, 1) = TextBox1
ListBox1.List = arrList
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
TextBox1 = .List(.ListIndex, 1)
iZeile = .ListIndex
End With
End Sub
Private Sub UserForm_Initialize()
Dim arrSpalten()
arrSpalten = Array(30, 300)
With ListBox1
.List = Tabelle2.ListObjects("Tabelle2").DataBodyRange.Value
.ColumnWidths = Join(arrSpalten, "; ")
End With
End Sub

Neu hinzugekommen sind eine TextBox und ein Button. Mit Doppelklick wird der Text der Zeile in die Textbox geladen, kann dann geändert werden und mit dem neuen Button geändert in die Listbox zurückgeschrieben werden.
https://www.herber.de/bbs/user/156885.xlsm
Gruß Uwe

Listbox Daten übergeben und bearbeiten

Forumthread: Listbox Daten übergeben und bearbeiten

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial