Suchen und Ersetzen durch VBA
Sascha
ich habe ein Problem.
Ich habe eine Userform für die verwaltung von Kundendaten. Jetzt soll es möglich sein einen Kunden anzulegen (funktioniert), zu suchen (funktioniert) und einen gesuchten Kunden zu ändern (funktioniert nicht richtig).
Leider fügt mir mein VBA Code nur einen neuen Kunden mit den neuen Daten hinzu ohne den alten zu überschreiben.
Ich habe auch schon hier danach gesucht aber nichts passendes gefunden.
Könnt ihr mir eventuell helfen?
Hier der Code:
Private Sub CommandButton3_Click()
' Daten ändern
Dim lZeile As Long
Dim iSpalte As Integer
Dim c As Range
With Sheets("Datenbank").Range("A2:A" & Range("A65536").End(xlUp).Row)
Set c = .Find(TextBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
lZeile = c.Row
Else: lZeile = Sheets("Datenbank").Range("A65536").End(xlUp).Row + 1
End If
End With
For iSpalte = 1 To 25
Sheets("Datenbank").Cells(lZeile, iSpalte) = Controls("TextBox" & iSpalte)
Next iSpalte
TextBox26.SetFocus
End Sub
Funktion:
1. Abgleich von Inhalt in Textfeld 1 mit Spalte A ab A2 in Tabelle "Datenbank"
2. Ersetzen bzw. Überschreiben der Daten in der entsprechenden Zeile ab Axxxx bis Yxxxx
Da der Kunde erst gesucht wird und dann die gefundenen Daten in der Userform geändert werden, muss es immer eine erfolgreiche Suche bei der Änderung geben.
Die Zahl (Kundennummer) in A ist einmalig und kann kein zweites Mal vorhanden sein.
Liebe Grüße,
Sascha.