Daten eintragen mit Inputbox ohne doppelte Daten
21.06.2016 17:54:21
Lupo
ich möchte auf dem Sheet "Stammdaten" mit einer Inputbox Daten in die Spalte A eintragen. Dabei sollen die neuen Daten in die erste freie Zeile geschrieben werden. Das läuft auch so weit, allerdings möchte ich verhindern das Daten doppelt eingetragen werden. Um das zu verhindern soll ein Msg.box erscheinen mit dem Hinweis, dass die Daten schon vorhanden sind.
Hat jemand eine Idee?
Schöne Grüße,
Lupo
Folgenden Code habe ich schon:
Sub Neuen_Bereich_eintragen()
Dim sTxt As String
sTxt = InputBox("Bitte neuen Bereich eintragen:", "Neuen Bereich eintragen")
If sTxt = "" Then Exit Sub
Sheets("Stammdaten").Select
Worksheets("Stammdaten").Range("A" & Range("A65536").End(xlUp).Row + 1).Value = sTxt
End Sub