Private
Sub
cmd_Speichern2_Click()
Set
a = ActiveSheet.Cells.Find(txt_lfdnr.Value)
If
a
Is
Nothing
Then
Exit
Sub
a.
Select
With
Selection
.Cells.Offset(0, -1) = txt_Datum.Value
.Cells.Offset(0, -2) = txt_Video.Value
.Cells.Offset(0, -3) = txt_Preis.Value
.Cells.Offset(0, -4) = txt_Artikel.Value
.Cells.Offset(0, -5) = txt_Bezeichnung.Value
.Cells.Offset(0 - 6) = txt_Name.Value
End
With
End
Sub