Hallo zusammen,
habe eine Userform mit 15 Ckeckboxen und mehrerenTextfeldern die werden nach dem Ausfüllen auch einwandfrei in die Tabelle übertragen.
Mein Problem ist welchen Code muss ich in die Initialisierungs schreiben damit diese Ergebnisse wieder in der ufrm angezeigt werden? Anbei mein Code
Muss ich dann auch noch einen Code beim Mietglied suchen auch noch eingeben?
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim i As Long
Dim sortRange As Range
Set sortRange = ThisWorkbook.Sheets("tbl_Mitglied").Range("A1:N500") 'Sortierfunktion
sortRange.Sort Key1:=sortRange.Range("A1"), Order1:=xlAscending, Header:=xlYes 'Kopfzeile nein

Set ws = ThisWorkbook.Worksheets("tbl_Mitglied")
Me.cmb_Mitglied_suchen.Clear

For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Me.cmb_Mitglied_suchen.AddItem ws.Cells(i, "B").Value ' Name anzeigen
Me.cmb_Mitglied_suchen.List(Me.cmb_Mitglied_suchen.ListCount - 1, 1) = i ' Zeile merken
Next i

' If Me.ws.Cells(Zeile, "Q").Value = "Ja" Then
' chk_Vorstand.Value
' End If

End Sub

Private Sub cmb_Mitglied_suchen_Change()
Dim ws As Worksheet
Dim Zeile As Long

If Me.cmb_Mitglied_suchen.ListIndex = -1 Then Exit Sub

Set ws = ThisWorkbook.Worksheets("tbl_Mitglied")
Zeile = Me.cmb_Mitglied_suchen.List(Me.cmb_Mitglied_suchen.ListIndex, 1)

Me.txt_ID.Value = ws.Cells(Zeile, "A").Value
Me.txt_Mitgl_NN.Value = ws.Cells(Zeile, "B").Value
Me.txt_Mitgl_VN.Value = ws.Cells(Zeile, "C").Value
Me.txt_PLZ.Value = ws.Cells(Zeile, "D").Value
Me.txt_Ort.Value = ws.Cells(Zeile, "E").Value
Me.txt_Strasse.Value = ws.Cells(Zeile, "F").Value
Me.txt_HsNr.Value = ws.Cells(Zeile, "G").Value
Me.txt_Festnetz.Value = ws.Cells(Zeile, "H").Value
Me.txt_Tel_mobil.Value = ws.Cells(Zeile, "I").Value
Me.txt_email.Value = ws.Cells(Zeile, "J").Value
Me.txt_Hund.Value = ws.Cells(Zeile, "K").Value
Me.cmb_Status.Value = ws.Cells(Zeile, "L").Value
Me.cmb_Funktion.Value = ws.Cells(Zeile, "M").Value
Me.cmb_Abteilung.Value = ws.Cells(Zeile, "N").Value
Me.txt_EDat.Value = ws.Cells(Zeile, "O").Value

End Sub

Vielen Dank im Voraus für die Hilfe

Gruß Richard