Doppelte Einträge verhindern
14.04.2005 12:52:13
Andreas
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