Hallo Community,

Ich möchte eine Userform erstellen in einem Hauptmenü, welche eine Art Suchen und ersetzen funktion wiederspiegeln soll.
Diese Userform soll auf Daten aus einer speziellen Arbeitsmappe zugreifen.

Jedoch ohne Erfolg bzw. ich sehe keine Daten in der Userform!
Ebenso kann ich keine Daten ändern in den Textformen, welche dann die Daten aus der Datenbank aktualisiert --> wenn ich ändere!


Ebenso wollte ich vor die Combobox eine weitere Combobox basteln welche nur bestimmte Daten dann in diese Combobox zeigen soll.
Nach dem Prinzip:

Ball --> Basketball		Sport --> Fussball

     --> Fussball		      --> Tennis

Jedoch fehlt mir hierzu der Ansatz im Code.   


Über eure Hilfe wäre ich sehr sehr dankbar.


Vielen Dank


mfg Matthias

Code:

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> 0 Then
    TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
    TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
    TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
    TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
    TextBox5 = Cells(ComboBox1.ListIndex + 1, 5)
    TextBox6 = Cells(ComboBox1.ListIndex + 1, 6)
Else
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
End If
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > 0 Then
    Rows(ComboBox1.ListIndex + 1).Delete
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    UserForm_Initialize
End If
End Sub

Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
    xZeile = [A65536].End(xlUp).Row + 1
Else
    xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 1) = TextBox1
Cells(xZeile, 2) = TextBox2
Cells(xZeile, 3) = TextBox3
Cells(xZeile, 4) = TextBox4
Cells(xZeile, 5) = TextBox5
Cells(xZeile, 6) = TextBox6

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""

Sheet("Kunde").Columns("A:H").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "Kundenname"
For i = 2 To aRow
    ComboBox1.AddItem Cells(i, 1)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
End Sub