Doppelte vermeiden.....Code funzt net
Peter
ich möchte vor dem "Abschiessen" eines Datensatzes überprüfen, ob der Wert in Spalte 4 bereits vorhanden ist, wenn ja dann die Meldung, wenn nein dann schreiben, aber die Überprüfung läuft nicht?
Dim var As Variant
var = Application.Match(CDbl(txtEdit3.Value), Columns(4), 0)
If Not IsError(var) Then
MsgBox "Wert ist bereits vorhanden!"
Else
Dim z As Integer
With Sheets("Daten").Activate
z = Range("B65536").End(xlUp).Row
Cells(z + 1, 2) = txtEdit1.Value
Cells(z + 1, 3) = txtEdit2.Value
Cells(z + 1, 4) = txtEdit3.Value
Cells(z + 1, 5) = txtEdit4.Value
Cells(z + 1, 6) = txtEdit5.Value
End With
End If
kann jemand eingreifen?
Danke
Peter S.