Guten Tag Allerseits

Als erstes müsst ihr wissen, dass ich ein absoluter Noob bin. Ich habe bereits überall nach meinem Problem gesucht, aber nichts gefunden.

Eigentlich habe ich das Gefühl, dass es was ganz simples ist, aber ich schaffe es einfach nicht es umzusetzen.

Ich habe eine Userform erstellt um Daten aus einer Excel-Liste übersichtlicher anzuzeigen.

Es gibt eine Such Combobox die nach den Einträgen sucht (aus Spalte A). Wenn der gewünschte Eintrag gefunden ist, werden die Daten von Spalte B bis F in Textboxen in der UserForm angezeigt. 

Nun möchte ich gerne, dass man den Eintrag ändern, oder löschen kann via Befehlschaltflächen. Also bei der Änderung soll man direkt in den angezeigten Textboxen den Eintrag (Zelle) überschreiben und mit einer Schaltfläche ändern können. 

Und das löschen würde über eine Schaltfläche der angezeigte Eintrag (Zelle) löschen.

Wichtig hier ist vielleicht, dass ich nicht mit einer Textbox die Suche nach Einträgen starte, sondern mit einer Combobox.

If ComboBox1_Suche.Value <> "" Then
AAAZ = CDbl(ZZFFF2.Range("A2:A5002").Cells.Find(What:=ComboBox1_Suche.Value, lookat:=xlWhole).Row)
TextBox2_STK.Value = ZZFFF2.Cells(AAAZ, 2).Value
TextBox3_TelSTK.Value = ZZFFF2.Cells(AAAZ, 3).Value
TextBox4_STV.Value = ZZFFF2.Cells(AAAZ, 4).Value
TextBox5_TelSTV.Value = ZZFFF2.Cells(AAAZ, 5).Value
TextBox6_Division.Value = ZZFFF2.Cells(AAAZ, 6).Value
End If

End Sub

______________________

Private Sub UserForm_Initialize()

ZZFFF2.Activate
With ZZFFF2
ComboBox1_Suche.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With

End Sub

Kann mir bitte bitte bitte jemand helfen?

Besten Dank schon mal

Diana