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

Beiträge aus den Excel-Beispielen zum Thema "Doppelte Einträge verhindern"