Office: doppelte Werte in Spalte verhindern

HAllo!
KAnn ich doppelte Werte mit VBA in einer Spalte ("AA") verhindern? Die Daten in Spalte AA werden per Userform mit Textfeld eingegeben.

Evtl. eine "vorabfrage" schon bei der Eingabe in das Textfeld möglich?

1000Dank im Vorraus!


Mike

 

Hallo,

ich habe mir beigefügte Hilfe für lange Eingabelisten gebastelt.

 

HAllo John!

die Idee ist ja nahezu perfekt. Da ich aber aus VBA einer Userform heraus einen Eintrag in die Spalte AA vornehme, müsste schon beim Bestätigen die Fehlermeldung kommen.

Also: Aufruf einer Userform (hier: Gebäudeneu)
- der User gibt eine 3 stellige Nummer für ein neues Gebäude ein (Textbox1.)

Dieser Wert wird per MAkro (Enter-Taste)an die letzte freie Stelle in Spalte AA"katapultiert".

Die Abfrage, dass der Wert eine numerische Zahl sein muss habe ich nun, mir fehlt jetzt nur die Idee für den doppelten Eintrag und das die ZAhl NUR eine 3 stellige sein darf! : Wenn wert <>"000" und doppelt in Spalte AA dann UserformFehler.

Ganz simple ausgedrückt.


Vielleicht hat ja noch jemand eine geniale Idee?

DAnke im Vorraus!

Mike

 

Hallo!

Wie wäre sowas?

Code:

Dim Zelle as Range
Set Zelle = Sheets("Blattname").Range("AA:AA").Find(TextBox1.Text)
If Not Zelle Is Nothing Then
MsgBox "Diese Nummer existiert schon!"
Else
...
...
End If

 

HAllo!

superspitzenmäßigrattenscharf!

einfach genial Danke an Schnake(mal wieder!)

Aber der User kann immer noch eine 4 oder mehrstellige Zahl eingeben. Das wäre noch eine Sache die ich irgendwie realisieren müsste.
Und etwas funzt auch nicht(wachum auch immer, ich finde es nicht):
Wenn ein Wort statt Zahl oder eine schon vorhandene ZAhl eingegeben wurde, wollte ich den Fokus wieder in die Textbox1 haben, geht aber nicht. WO liegt mein Denkfehler?

Hier erstmal mein kompletter Code:

Private Sub CommandButton1_Click()

TextBox1.Enabled = True
Label3.Visible = True
CommandButton1.Visible = False
TextBox1.SetFocus


End Sub
============================

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
(UserfGebäudeNeu.TextBox1, "000")
ActiveSheet.Unprotect
Dim Zelle As Range
Set Zelle = Sheets("Gerät").Range("AA:AA").Find(TextBox1.Text)
If Not Zelle Is Nothing Then
TextBox1.Enabled = True
UserfGebäudeNeu.TextBox1 = ""
UserfGebäudeNeu.TextBox1.SetFocus
MsgBox "Diese Nummer existiert schon!"
Else
Cells(Range("AA65536").End(xlUp).Offset(1, 27).Row, 27) = UserfGebäudeNeu.TextBox1
Columns("AA:AA").Select
Selection.NumberFormat = "000"
Selection.TextToColumns Destination:=Range("AA1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.Sort Key1:=Range("AA1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("I8").Select
Cells(Range("AA65536").End(xlUp).Offset(0, 27).Row, 27).Activate
If Not (IsNumeric(ActiveCell)) Then
Cells(Range("AA65536").End(xlUp).Offset(0, 27).Row, 27).Delete
Unload UserfGebäudeNeu
MsgBox "Bitte nur 3-stellige Zahlen!"
UserfGebäudeNeu.TextBox1 = ""
Range("I8").Select
Call Zeigen


End If


UserfGebäudeNeu.TextBox1 = ""
Range("I8").Select


Unload UserfGebäudeNeu

End If
End If

End Sub

============================

Sub Zeigen()
For i = 1 To 200
UserfGebäudeNeu.ListBox1.AddItem (Sheets("Gerät").Cells(i, 27).Value)

Next
UserfGebäudeNeu.Show
End Sub


DANKE SCHONMAL IM VORRAUS!

Mike

 

Hallo!

Frag doch einfach die Länge der TextBox ab:

Code:

If Len(TextBox1.Text) <> 3 Then ...

 

Hallo!

Wo ist der Smilie der sich an den Kopf haut???

:-)) hätte mir ja auch einfallen können, Schnaki du bist genial, probier ich gleich!


Hast du auch 'ne Idee warum mein Fokus nicht im Textfeld landet??


Gruß

MIke

 

Hallo!

Ich bin gar nicht Schnake...

Aber nichts desto trotz:
Hier ist der Smilie

 

Ups, auch das noch!! Hab heute wohl zuviel Kaffee gehabt! SORRY.

Schatzi ist natürlich supergenial!

HAst du ne Lösung für mein "Rätsel"?

Danke für den Smilie! HAt geholfen ;-)

MIke

 

Hallo!

Hilft es, wenn du die MsgBox nach vorne ziehst?

Code:

If Not Zelle Is Nothing Then
MsgBox "Diese Nummer existiert schon!"
TextBox1.Enabled = True
UserfGebäudeNeu.TextBox1 = ""
UserfGebäudeNeu.TextBox1.SetFocus

 

Hallo Schatzi!

das funzt auch nicht. der Fokus wird dann in die Listbox1 gesetzt.


MIke