Ich gebe in ein Textfeld namens textSuchbegriff den gewünschten Namen ein und lasse mir die Daten in einzelnen textfeldern ausgeben. Das klappt auch dann möchte ich die Daten verändern können. Ich ändere also in einem Feld etwas. Dann klicke ich den Button cmdDatengeändert an. Also muss ich doch ganz einfach diese Zeile in der Tabelle löschen und die Daten aus den Textfeldern in eine neue Zeile schreiben lassen. Durch die Sortierung kommt dies ja wieder an die gleiche stelle. Das neu Aufnehmen funktioniert auch nur meine Zeile wird nicht gelöscht. Ich habe mal meinen Code darunter kopiert, hoffe ihr könnt was damit anfangen J Danke
Private Sub cmdDatengeändert_Click()
'Löschen der Zeile
Sheets("Adressbuch").Activate
Range("a5").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = textName Then _
Selection.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Loop
'neuaufnahme
Set Frm = formErwSuche
Sheets("Adressbuch").Activate
Range("a65536").End(xlUp).Offset(5, 0).Select
With Frm
ActiveCell.Value = textName
ActiveCell.Offset(0, 1).Value = .textVname
ActiveCell.Offset(0, 2).Value = .textAnrede
ActiveCell.Offset(0, 3).Value = .textPrivatStraße
ActiveCell.Offset(0, 4).Value = .textPrivatPLZ
ActiveCell.Offset(0, 5).Value = .textPrivatOrt
ActiveCell.Offset(0, 6).Value = .textPrivatTelefon
ActiveCell.Offset(0, 7).Value = .textPrivatHandy
ActiveCell.Offset(0, 8).Value = .textPrivatGebDatum
ActiveCell.Offset(0, 9).Value = .textEmail
ActiveCell.Offset(0, 10).Value = .textPrivatLand
ActiveCell.Offset(0, 11).Value = .textPrivatFax
ActiveCell.Offset(0, 13).Value = .textGesFirma
ActiveCell.Offset(0, 14).Value = .textGesAnsprechpartner
ActiveCell.Offset(0, 15).Value = .textGesStraße
ActiveCell.Offset(0, 16).Value = .textGesPLZ
ActiveCell.Offset(0, 17).Value = .textGesOrt
ActiveCell.Offset(0, 18).Value = .textGesTelefon
ActiveCell.Offset(0, 19).Value = .textGesHandy
ActiveCell.Offset(0, 20).Value = .textGesFax
ActiveCell.Offset(0, 21).Value = .textGesWebsite
ActiveCell.Offset(0, 22).Value = .textGesLand
'sortieren
Range("A5:V500").sort Key1:=Range("A5"), Key2:=Range("B5")
End With
End Sub