Ich habe einen Code geschrieben der Daten aus einer Excel tabelle raussucht. Jetzt will ich die Daten speichern, es geht im moment aber nur wenn die Artikelnummer schon vorhanden ist. Wie mache ich das, das auch neue Artikelnummern die noch nicht vorhanden sind gespeichert werdne können ?
Das ist der Code den ich benutze zum abspeichern.
Private Sub cmdspeichern_Click()
Dim Begr As String
Dim rFind As Range
Dim Ber As Range
Set Ber = Sheets(1).Range("B:B")
Begr = txtartnr
Set rFind = Ber.Find(Begr, LookAt:=xlWhole)
If Not rFind Is Nothing Then
With rFind
Cells(.Row, Column + 2) = UFFormat.txtartnr.Text
Cells(.Row, Column + 4) = UFFormat.txtbez1.Text
Cells(.Row, Column + 5) = UFFormat.txtbez2.Text
.
.
.
.
WIe kann ich das machen?
Gruß Martin