Daten aus listbox in txb e. anderen UF übertragen
06.07.2016 12:25:48
baschti007
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