VBA Datenerfassung ohne Duplikate
26.12.2020 16:07:30
Marko
ich brauche einen Code, der die Erfassung von Duplikaten verhindert.
Eingabe in Tabelle3
- Zelle C5 = Kundennummer
- Zelle C11 = Produktname
Erfassung in Tabelle4 (ab Zeile 2, in Zeile 1 stehen die Überschriften)
- Spalte A = Kundennummer
- Spalte B = Produktname
Wenn für den Kunden ein Produkt bereits erfasst worden und der Tabelle4 bereits vorhanden ist, soll sich eine MsgBox öffnen mit Ja/Nein Abfrage:
- Datensatz ist bereits vorhanden wollen sie diesen überschreiben?
- Wenn Ja, dann soll der vorhandene Datensatz überschrieben werden.
- Wenn Nein, dann soll nichts gesehen.
Die Übertragung von Tabelle3 in die Tabelle4 erfolgt mit folgenden Code:
Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Dim raBereich As Range
With Worksheets("Tabelle3")
Set raBereich = Union(.Range("C5"), .Range("C11"), .Range("C19"))
raBereich.Copy
With Worksheets("Tabelle4")
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row, 1) _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
Application.CutCopyMode = False
End With
Range("C5").ClearContents
Range("C11").ClearContents
Range("C19").ClearContents
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Wie kann diese Aufgabe gelöst werden? Leider reichen meine VBA Kenntnisse hierfür nicht aus. Vielen Dank für Eure Hilfe.
Anzeige