Office: Listbox mit Array befüllen,bearbeiten &zurückschreiben

steschnu · 16. Oktober 2020

Guten Abend

Ich bin ein Laie und habe mich in letzter Zeit mit einem Projekt ins VBA eingearbeitet.

Nun scheitere ich aber an den Arrays in Kombination mit dynamischen Tabellen (.listobjects)

Ich habe als Beispiel eine "Adressverwaltung" kreiert, wenn jemand ein klein wenig Geduld aufbringen könnte, um sie mir verständlich zu ergänzen(evt mit ergänzenden 'comments, wär das super *Smilie
*boah
Lese den DataBodyRange mittels Array in eine Userform.Listbox ein
und möchte diesen anschliessen mit einer Textbox filtern. (Vor-oder Nachname)
Wenn Eintrag aus Listbox angewählt, in Textboxen ausgeben & von diesen aus ändern oder löschen
wenn kein Eintrag vorhanden einen neuen Erstellen.

Falls der Aufwand für euch aber zu Gross ist, entschuldige ich mich dafür.

Danke schon im Voraus

Stefan

:)

Mase · 18. Oktober 2020

Hi,

ich stelle mal den Code getrennt der Mappe zur Verfügung, da einige keine XLSM runterladen möchten.
Somit erreichst Du mehr Helfer.

von Code in der UserForm

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dim myTable As ListObject
Dim myArray As Variant
Dim x As Long

Private Sub UserForm_Initialize()
Set myTable = Sheets("Tabelle1").ListObjects("Kundenstamm")

'Listbox befüllen mit Array

myArray = myTable.DataBodyRange
For x = LBound(myArray) To UBound(myArray)
Debug.Print myArray(x, 2)
Next x

With ListBox1
.Clear
.ColumnCount = 8
.List = myArray
End With

End Sub
Private Sub TextBox1_Change()
Dim FoundCell As Range
Dim strFirst As String
Dim y As Long
' Objectlist nach Einträgen durchsuchen (Vor& Nachnamen/ Grosskleinschreibung ausser acht lassen)
'Anpassung der Listbox beim hinzufügen und entfernen eines Buchstabens
For y = 1 To myTable.ListColumns.Count 'alle Spalten (Ziel wäre Spalte 1&2)
Next y
Set FoundCell = myTable.DataBodyRange.Columns(y).Find(What:=TextBox1, Lookat:=xlPart)

'Gefundene Einträge in Listbox übertragen .. von Tabelle .. kann man auch vom Array?
With myTable
If Not FoundCell Is Nothing Then
strFirst = FoundCell.Address
Do
ListBox1.AddItem .Cells(FoundCell.Row, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(FoundCell.Row, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(FoundCell.Row, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(FoundCell.Row, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(FoundCell.Row, 5)
Set FoundCell = myTable.DataBodyRange.Columns(y).FindNext(FoundCell)
Loop While Not FoundCell Is Nothing And FoundCell.Address strFirst

Else
MsgBox "Keine Kontakte gefunden"
End If
End With
End Sub
Private Sub ListBox1_Click()
'Selektionierter Eintrag in Textboxen übertragen
End Sub
Private Sub speichern_Click()
'Wenn Selektionierter Eintrag (inListbox) = ändern (in Tabelle)

'sonst neuer Eintrag erstellen (in Tabelle) & Kundennummer automatisch vergeben
myTable.ListRows.Add AlwaysInsert:=True

End Sub
Private Sub loeschen_Click()
'Selektionierter Eintrag (in Listbox)= Löschen in Tabelle & Listbox

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hinweis:
Ein Button auf dem ersten Blatt lädt die UserForm.

ralf_bx · 18. Oktober 2020

Du willst dich einarbeiten?

PHP:

Private Sub ListBox1_Click() 'hier würde ich das change event nutzen 'Selektionierter Eintrag in Textboxen übertragen if Listbox1.listindex >-1 then Textbox1 = Listbox1.list(Listbox1.Listindex, 'hier passende Spaltennr eintragen') usw.... ' Warum auch immer du Comboboxen für Vorame und Nachname ' 'verwendest. Aber da wird es etwas umständlicher den passenden Eintrag, 'aus der hoffentlich vorhandenen Namensliste auszuwählen. end if End Sub

steschnu · 19. Oktober 2020

Danke schon mal, die Comboboxen brauch ich eigentlich nicht mehr, das war vom ersten Versuch, bei dem ich die Comboboxen mit Schleifen gefüllt habe.

Das Change event hab ich auch schon ausprobiert, als ich die Listbox mit Listrow befüllte.

Hab mal sowas gesehen:
Code:

' Daten aus Listbox in die Objekte übertragen
Dim rng As Range
Dim IntC As Integer
Dim obj As Object
With ListBox1
If .ListCount = 0 Then Exit Sub
If .List(.ListIndex, 0) = "" Then Exit Sub
lngR = CLng(.List(.ListIndex, 5))
For intAnz = 0 To UBound(myArray)
Controls(myArray(intAnz)) = myTable.Cells(lngR, intAnz + 1).Value
Next intAnz
End With
TextBox1.SetFocus
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber das scheint irgendwie nicht zu funktionieren..
evt weil myTable der databodyrange einer Objectlists-Tabelle ist?

ralf_bx · 19. Oktober 2020

Naja, das ist auch ne Möglichkeit.

Du kannst aber auch meinen Vorschlag umsetzen. Für die paar Textboxen brauchts eigentlich kein extra Array mit den Namen deiner Textboxen in der richtigen Reihenfolge.

Ausserdem bleibt dein Code dann lesbarer. Deshalb habe ich auch auf das With Listbox1 verzichtet.

Bei deinem Beispiel sehe ich noch ein anderes Problem. Naja Problem ist vielleicht zu viel gesagt. In deinem Beispiel werden die Werte nicht aus der Listbox geholt, sondern aus der Tabelle. Ich bevorzuge die Verarbeitung der Listboxeinträge, statt auf die Tabelle zuzugreifen. Schließlich wurden die Werte aus der Tabelle geholt und in myArray geschoben. Dann erst in die Listbox und sind somit nicht mehr mit der Tabelle verknüpft. Ein Verbindung bleibt glaube ich nur wenn du per rowsource die Tabellenwerte an die Listbox bindest.

So, jetzt kannst du es erstmal umsetzen. Bis denne.

Office: Listbox mit Array befüllen,bearbeiten &zurückschreiben

Listbox mit Array befüllen,bearbeiten &zurückschreiben

Listbox mit Array befüllen,bearbeiten &zurückschreiben

Listbox mit Array befüllen,bearbeiten &zurückschreiben

Listbox mit Array befüllen,bearbeiten &zurückschreiben - Similar Threads - Listbox Array befüllen

Suchfunktion für Listbox in Textbox

Listbox befüllen

Listbox füllen wenn zelle daneben leer

Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Suchfunktion in Listbox

ListBox generiert selbstsändig Leerzeilen

Array durch Listbox füllen