Daten aus listbox in txb e. anderen UF übertragen

Hallo,
am 24.06.2016 habe ich mein Problem bereits geschildert, durch andere Forumsteilnehmer habe ich eine große Unterstützung bekommen.
Dem Beitrag liegt auch eine Excel-Makrodatei bei.
Folgendes Problem
Innerhalb eines UF habe ich eine Textbox, in die ich den Suchbegriff (Nachnamen) eingebe und unmittelbar darunter befindet sich die Schaltfläche "suchen". Per Klick wird die dem Programm zugrunde liegende Excel-Tabelle nach dem Suchbegriff durchsucht. Falls Treffer, werden die gefundenen Datensätze in einer Listbox aufgelistet. Falls kein Treffer, fragt eine msgbox ob ein neues Kundenprofil angelegt werden soll.
Folgendes Problem
Die Einträge aus der Listbox sollen in ein anderes Userform übertragen werden. Die Übertragung wird bewirkt entweder per Doppelklick auf den gewählten Eintrag in der Listbox oder per Schaltfläche "Kundenprofil" anzeigen.
Beides funktioniert nicht. In der Fehlermeldung steht: Laufzeitfehler 424, Objekt erforderlich. Diese Fehlermeldung erscheint an der Stelle, an der die Übertragung in das neue Userform erfolgen sollte.
Hinzufügen möchte ich noch, dass in der angehängten Datei das Makro in die Excel-Datei selbst integriert ist. Bei mir auf der Arbeit (MS 2010) lege ich alle Makros in der persönlichen Arbeitsmappe ab !!! Das Makro funktioniert nicht.
Zu Hause (MS 2007) funktioniert das Makro einwandfrei (auch mit persönlicher Arbeitsmappe).
Hat jemand eine Idee ?
https://www.herber.de/bbs/user/106793.xlsm
Viele Grüße
Tomasz

Beim mir geht es so ?
Kleine Änderungen


Private Sub cmdDatenverwaltung_Click()
Dim Zeile As Integer
'zeile mit ausgewähltem Kunden suchen
'Zeile = ZeileGesucht
'die Zeilennr. der Tabelle steht in der 5. Spalte der Listbox
Zeile = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
'MsgBox Zeile
'Daten des Kunden in neue UserForm übertragen
With frmMKKundenVerwaltung
.txtVorname3.Text = Cells(Zeile, 4).Value
.txtNachname3.Text = Cells(Zeile, 3).Value
.txtGeburtsdatum3.Text = Cells(Zeile, 5).Value
.txtStraße1.Text = Cells(Zeile, 7).Value
.txtPLZ1.Text = Cells(Zeile, 8).Value
.txtStraßeFirma2.Text = Cells(Zeile, 9).Value
.txtPLZFirma2.Text = Cells(Zeile, 10).Value
.Show
End With
End Sub
Private Sub cmdSchließen_Click()
Unload frmMKSuche
End Sub
Private Sub Suchen()
Dim lng As Long
Dim i As Integer
Dim q As Integer
Application.ScreenUpdating = False
'liste füllen
'Zeilemax = ActiveSheet.UsedRange.Rows.Count
With frmMKSuche
.ListBox1.Clear
Workbooks(ActiveWorkbook.Name).Worksheets("Kunden").Activate
i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If .txtNachname.Value = "" Then Exit Sub
If Cells(lng, 3).Value Like ("*" & .txtNachname.Value & "*") Then '------ Hier mit Like  _
aber dann muss du die Groß und klein schreibung beachten =)
.ListBox1.AddItem Cells(lng, 3).Value
.ListBox1.Column(1, i) = Cells(lng, 4).Value
.ListBox1.Column(2, i) = Cells(lng, 7).Value
.ListBox1.Column(3, i) = Cells(lng, 8).Value
.ListBox1.Column(4, i) = Cells(lng, 9).Value
.ListBox1.Column(5, i) = lng
i = i + 1
'Exit Sub
Else
End If
Next lng
If Me.ListBox1.ListCount = 0 Then
q = MsgBox("Das Kundenprofil konnte nicht gefunden werden." & vbCrLf & _
"Soll ein neuer Kunde angelegt werden", vbYesNo + vbQuestion)
If q = vbYes Then
frmMKKundenAnlegen.Show
Else
Me.txtNachname.SetFocus
End If
End If
End With
Application.ScreenUpdating = True
End Sub
Private Sub cmdSucheListeFuellen_Click()
Suchen
End Sub
Public Function ZeileGesucht() As Integer
Dim Zeile As Integer
'zugehörige Tabelle aktivieren
Workbooks("Verwaltung.xlsm").Worksheets("Kunden").Activate
'Zeile mit ausgewähltem Kunden suchen
Zeile = 3
Do While Cells(Zeile, 3).Value  ""
If Cells(Zeile, 3).Value = frmMKSuche.txtNachname.Text Then
Exit Do
End If
Zeile = Zeile + 1
Loop
'gesuchte Zeile
ZeileGesucht = Zeile
End Function
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Zeile As Integer
'zeile mit ausgewähltem Kunden suchen
'Zeile = ZeileGesucht
'die Zeilennr. der Tabelle steht in der 5. Spalte der Listbox
Zeile = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
'MsgBox Zeile
'Daten des Kunden in neue UserForm übertragen
With frmMKKundenVerwaltung
.txtVorname3.Text = Cells(Zeile, 4).Value
.txtNachname3.Text = Cells(Zeile, 3).Value
.txtGeburtsdatum3.Text = Cells(Zeile, 5).Value
.txtStraße1.Text = Cells(Zeile, 7).Value
.txtPLZ1.Text = Cells(Zeile, 8).Value
.txtStraßeFirma2.Text = Cells(Zeile, 9).Value
.txtPLZFirma2.Text = Cells(Zeile, 10).Value
.Show
End With
End Sub
Private Sub UserForm_Initialize()
txtNachname.SetFocus
End Sub

Daten aus listbox in txb e. anderen UF übertragen

Forumthread: Daten aus listbox in txb e. anderen UF übertragen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Daten aus listbox in txb e. anderen UF übertragen

Forumthread: Daten aus listbox in txb e. anderen UF übertragen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread