Herbers Excel-Forum - das Archiv

Doppelte Einträge verhindern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Doppelte Einträge verhindern
von: Andreas

Geschrieben am: 14.04.2005 12:52:13
Hi,
ich übertrage hier Namen aus Combobox in eine Tabelle, möchte jetzt eine Abfrage einbringen die doppelte Einträge verhindert und eine Meldung bringt "Eintrag schon vorhanden".
Wie funkt das?
Gruss Andreas
Private Sub CommandButton1_Click()
Dim lastrow As Integer
Dim ws As Worksheet
Set ws = Worksheets("Kunden")
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastrow + 1) = combobox1.Value
ws.Range("A" & lastrow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
End Sub

Bild

Betrifft: AW: Doppelte Einträge verhindern
von: Beni

Geschrieben am: 14.04.2005 13:08:10
Hallo Andreas,
Gruss Beni

Private Sub CommandButton1_Click()
Dim lastrow As Integer
Dim ws As Worksheet
Dim Wert As Variant
Wert = ComboBox1.Value
Set c = Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
Set ws = Worksheets("Kunden")
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastrow + 1) = ComboBox1.Value
ws.Range("A" & lastrow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
Else
MsgBox "Wert ist scon vorhanden"
End If
End Sub

Bild

Betrifft: AW: Doppelte Einträge verhindern
von: Andreas
Geschrieben am: 14.04.2005 14:56:33
Hi Beni,
wenn ich das so eingebe dann bekomme ich Fehler Varible nicht definiert, definiere ich dann die Variable kommt fehler Objekt erforderlich.
Was ist falsch?
Gruss Andreas
Bild

Betrifft: AW: Doppelte Einträge verhindern
von: ANdreas
Geschrieben am: 14.04.2005 13:08:13
Hallo Andreas,
schau dir mal bitte den Workshop von Hans dazu an:
https://www.herber.de/xlfaq/workshop/gueltig/gueltig.html
Gruß
Andreas
Bild

Betrifft: AW: Doppelte Einträge verhindern
von: u_
Geschrieben am: 14.04.2005 13:11:27
Hallo,
if application.worksheetfunction.counta(ws.range("A1:A &lastrow),combobox1.value)>0 then
msgbox "Schon da"
exit sub
end if
Gruß
 Bild
Excel-Beispiele zum Thema "Doppelte Einträge verhindern"
Doppelte Einträge finden und löschen Doppelte Datensätze löschen
Doppelte Zelleinträge listen Doppelte Datensätze und Leerzeilen löschen
Doppelte Datensätze farblich markieren und auflisten Doppelte Eingabe von Werten verhinden
In mehrere Spalten doppelte Inhalte entfernen Doppelte Einträge in UserForm-ListBox löschen
Auf Doppelte prüfen, bevor Tabelleneintrag Nichtnumerische Eingaben verhindern