Suche mittels ListBox

Moin moin,
liebe Excel-Gemeinde.
Mein Problem ist für Profis wahrscheinlich keins, ich jedoch suche schon ewigkeiten nach einer Lösung. Bin Anfänger und tüftle so nebenbei.
Vorhanden: Arbeitsmappe(Tabelle1;Tabelle2(Personalbogen))
Userform2[1xCommandButton-öffnet Userform1 (zwecks Daeneingabe)
1xCommandButton- unload me
ListBox1: zeigt Nachname+Name (dynamisch angelegt aus
Tabelle2(Personalbogen)]
Userform1[diverse Textboxen(für Name, Nachname, Tel.,E-Mail.....;
werden in Spalten Tabelle2(Personalbogen)abgelegt.)
CommandButton2-Speichern
CommandButton1-alle TextBoxen leeren
CommandButton3-Abbrechen
CommandButton4-Userform Drucken]
Problem: Ich möchte nun aus dem Pool an Namen in der Listbox mittels Doppelclick auf
einen beliebigen Namen, die dazugehörigen Daten in die Userform1 einlesen
lassen.
Ferner möchte ich die Aufgerufenen Daten u.U. in der Userform ändern
können, und auf dem gleichen Platz in der Tabelle2(Personalbogen) wieder
abspeichern.
Teillösungen habe ich schon bei Youtube gesehen. Kann das aber nicht mit dem Doppelclick verbinden. Also ich kann das nicht.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
mal ein Beispielcode für 7 Felder.
Textboxen durchnummeriert TextBox1 bis TextBox7. Die Nummern entsprechen den Spalten im Personalbogen.
In der Listbox Namen und Vornamen (A:B)

Private Sub cmdEintragen_Click()
Dim i As Long
'Daten in Tabelle schreiben
For i = 1 To 7
Sheets("Personalbogen").Cells(lRow, i) = Controls("Textbox" & i)
Next
'Listbox auffrischen
With ListBox1
.List = GetNamen
.ListIndex = lRow - 2
End With
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
lRow = ListBox1.Column(2) 'Zeilennummer
'Daten aus Tabelle in Textboxen schreiben
For i = 1 To 7
Controls("Textbox" & i) = Sheets("Personalbogen").Cells(lRow, i)
Next
End Sub
Private Sub UserForm_Activate()
With ListBox1
.ColumnCount = 2
.List = GetNamen
End With
End Sub
Function GetNamen()
Dim arrTmp, i As Long
With Sheets("Personalbogen").Cells(1, 1).CurrentRegion
arrTmp = .Offset(1).Resize(.Rows.Count - 1, 3)
End With
'Zeilennummern
For i = 1 To UBound(arrTmp)
arrTmp(i, 3) = i + 1
Next
GetNamen = arrTmp
End Function

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche mittels ListBox

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread