überprüfung ob Wert schon vorhanden
19.11.2018 10:42:47
Schnider
Da mir hier schon etliche Male sehr gut geholfen wurde, danke dafür, habe ich eine neue Frage an euch.
Es geht darum, einen Artikel über eine UserForm zu erfassen und den dann in das Tabellenblatt "Artikelstamm" einzutragen. Die UserForm 1 hat 3 TextBoxen (1-3) und eine Combobox1. Der Coede funktioniert soweit, nur kommt nun immer die Meldung bereits vorhanden. Was muss ich am Code ändern, damit er erkennt, dass V65 und V70 nicht das gleiche ist?
Der Code lautet:
Private Sub CommandButton1_Click()
Dim rZelle As Range
If Trim(TextBox1.Value) = "" Then
MsgBox "Keine Artikelnummer vorhanden", _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
Exit Sub
End If
With ThisWorkbook.Worksheets("Artikelstamm").Columns(1)
Set rZelle = .Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
MsgBox "Den Eintrag """ & TextBox1.Value & """ gibt es bereits!", _
48, " Hinweis für " & Application.UserName
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
Else
Sheets("Artikelstamm").Cells(1, 1).Value = TextBox1.Value
Sheets("Artikelstamm").Cells(1, 2).Value = TextBox2.Value
Sheets("Artikelstamm").Cells(1, 3).Value = TextBox3.Value
Sheets("Artikelstamm").Cells(1, 5).Value = ComboBox1.Value
End If
End With
End Sub