Doppelte Einträge verhindern
07.06.2005 13:33:13
Andreas
habe hier eine Code mit dem ich Einträge in eine externe Tabelle mache, jetzt will ich doppelte Einträge verhindern.
Was muss ich da schreiben?
Vielen Dank für die Hilfe.
Gruss Andreas
Private Sub CommandButton3_Click() 'Neue Kunden in externe Kundenliste übertragen
Dim lastrow As Integer
Dim ws As Worksheet
Dim exapp As New Application
If Range("b8") = ("") Then
End
End If
Set exapp = New Excel.Application 'Neue Excel Instanz eröffnen
exapp.Visible = False 'Excel bleibt unsichtbar
exapp.Workbooks.Open "V:\Transferordner\Vorlagen - Maschinen - Sonstiges\Vorlagen - Listen\Messprotokoll_Kundenliste.xls" 'Quelldatei öffnen
Set ws = exapp.Worksheets("Kundenliste") 'Quelltabelle angeben...
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastrow + 1) = Range("b8").Value
ws.Range("A" & lastrow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
exapp.Workbooks("Messprotokoll_Kundenliste.xls").Close Savechanges:=True
exapp.Quit
End Sub