Office: doppelten Eintrag aus Listbox entfernen?

Hallo Leute!

ich hoffe, ihr könnt mir wieder ein wenig Hilfe geben! Mein Code:
Ich habe eine Userform (UserfRaum)
darin eine Textbox1, eine Listbox1, gefüllt wird die Listbox1 mit den Daten aus einer Liste im Blatt "Gerät".

Sub ZeigenRaum()
For i = 1 To 200
UserfRaum.ListBox1.AddItem Format(Sheets("Gerät").Cells(i, 28).Value, "000")
UserfRaum.ListBox1.SetFocus
UserfRaum.TextBox1 = ListBox1
Next
UserfRaum.Show
End Sub

Spezielle Auswahlkriterien habe ich schon gebastelt:

If Len(UserfRaum.TextBox1.Text) <> 3 Then
MsgBox "Bitte im Zahlenformat 000 eintragen!"
UserfRaum.TextBox1 = ""
Unload UserfRaum
Range("L8").Select
End If


sowie:
(nach sortieren der Liste)

If Not (IsNumeric(ActiveCell)) Then
Cells(Range("AB65536").End(xlUp).Offset(0, 28).Row, 28).Delete
Unload UserfRaum
Range("L8").Select
MsgBox "Bitte nur 3-stellige Zahlen!"
'Call ZeigenRaum
End If


Neue Einträge in der Listbox1 übernehme ich mit der enter Taste:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then ......übernehmen

Mein Problem:

wie verhindere ich doppelte Einträge in der Userform? (Textbox1)

Also bei click auf commandbutton checken ob doppelte Einträge vorhanden, dann unload userform oder sowas in der Art!

Ich hoffe das ihr mir helfen könnt, bin am verzweifeln!!

:-(



Gruß

Mike

 

Hallo!

Das könntest du checken mit
If Worksheetfunction.CountIf(...) > 0 Then ...

 

Hallo Schatzi!
habe ich auch schonmal probiert, aber das funzt nicht!

bekomme leider immer eine Fehlermeldung!
"Argument ist nicht optional"

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
ActiveSheet.Unprotect

' Inhalt aus Textbox1 in letzte Zelle in Spalte "AB:AB" eintragen
Cells(Range("AB65536").End(xlUp).Offset(1, 28).Row, 28) = UserfRaum.TextBox1
'komplette Spalte auswählen
Columns("AB:AB").Select
'Format der Spalte auf "000" setzen
Selection.NumberFormat = "000"
'aus Text Zahlen machen
Selection.TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'prüfen, ob doppelter Eintrag vorhanden
If WorksheetFunction.CountIf(Sheets("Gerät").Range("AB:AB")) > 0 Then

Unload UserfRaum
Range("L8").Select
End If

Hast du noch ne andere Idee?


Mike

 

Klar, du gibst ja auch nicht an, wonach du suchst...

 

HAllo!

?? Klär mich dochmal auf BITTE!

MIke

 

Excel-Hilfe kaputt??

CountIf verlangt ZWEI Argumente:
1. Den Bereich, der durchsucht werden soll (z.B. Range("AB:AB"))
2. Den Suchbegriff (z.B. TextBox1)

 

Habs schon, sorry, mannomann, manchmal sieht man den Wald vor lauter Bäumen nicht, man muss natürlich noch ein KOMMA!!!! setzen!

If WorksheetFunction.CountIf(Sheets("Gerät").Range("AB:AB"), UserfRaum.ListBox1) > 0 Then

Danke für die wunderbar schnelle HILFE!!

MIke

 

Hilfe !! Geht doch nicht!


Private Sub CommandButton4_Click()
Cells(Range("AB65536").End(xlUp).Offset(1, 28).Row, 28) = UserfRaum.TextBox1
Columns("AB:AB").Select
Selection.NumberFormat = "000"
Selection.TextToColumns Destination:=Range("AB:AB"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
If WorksheetFunction.CountIf(Sheets("Gerät").Range("AB:AB"), UserfRaum.ListBox1) > 0 Then
Unload UserfRaum
Range("L8").Select
End If
End Sub


Was mache ich falsch?? :-(

MIke

 

HAllo Schatzi!

kann es sein das es nicht funktioniert, da der Eintrag in der Listbox ein Texteintrag ist? :?:

Mike

 

Ja, das ist möglich.
Wandle ihn mal in eine Zahl
CInt(UserfRaum.ListBox1)

 

CInt???

so was kann ich doch noch nicht,

deshalb frage
ich doch hier, wie man das macht! :-(

Das wandeln ist ja mein Prob.

Gruß Mike

 

uppps , nicht die Listbox, sondern die TEXTBOX1 ist gemeint, die Listbox wandel ich ja um. aber in der Textbox steht die Zahl zum Vergleich.

If WorksheetFunction.CountIf(Sheets("Gerät").Range("AB:AB"), UserfRaum.TextBox1) > 0 Then......

Mike

 

Hallo!

CInt wandelt den Wert in Integer.
(CDbl würde den Wert in ein Double umwandeln.
Steht übrigens auch in der Excel-Hilfe...)

If WorksheetFunction.CountIf(Sheets("Gerät").Range("AB:AB"), CInt(UserfRaum.TextBox1)) > 0 Then......

 

HAllo Schatzi!

nun funktioniert es! :lol: danke! Keine doppelten einträge mehr möglich.

Ich feile noch ein wenig, dann stelle ich den kompletten Code mal ein.

Gruß

MIke