Ich habe eine UserForm als Eingabemaske für eine Datenbank entworfen was auch prima funktioniert. Bei einem Problem bin ich alledings schon Betriebsblind.
In TextBox1 gebe ich eine vierstellige Zahl z.B. 4511 ein und diese wird im Zuge des Abspeicherns in die erste freie Zelle der Spalte A geschrieben. Nun möchte ich aber verhindern das eine bereits vorhandene Zahl zum zweitenmal eingegeben wird und versuche das folgendermaßen:
If TextBox1.Value = Sheets("Kostenstelle").Range("A:A").Value Then
MsgBox "Die Kostenstelle ist schon vorhanden", vbExclamation
End If
If TextBox1.Value = Sheets("Kostenstelle").Range("A:A").Value Then Exit Sub
Was ist falsch an diesem Lösungsversuch?
Gruß DieterL