|
Guten Tag zusammen,
Ich komme nicht auf die Lösung und hoffe, von euch einen Tipp zu erhalten.
Mein Problem:
Daten von der Tabelle1 sollen in die Tabelle2 mittels Buttons kopiert werden. Soweit so gut. Das Problem ist nun, wenn ich den gleichen Datensatz noch einmal kopieren will, soll das Skript erkennen, dass dieser Datensatz schon in der Tabelle2 vorhanden ist.
Wie kann ich mein Skript noch vervollständigen?
Sub uebertragDB()
Dim name(1 To 6) As String
Worksheets("Abrechnung").Select
ID = Range("F8")
Vorname = Range("H8")
Name1 = Range("J8")
Artikel1 = Range("F15")
Stk1 = Range("J15")
Preis1 = Range("N15")
Worksheets("Datenbank").Select
Worksheets("Datenbank").Range("A2").Select
If Worksheets("Datenbank").Range("A2").Offset(1, 0) <> "" Then
Worksheets("Datenbank").Range("A2").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ID
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Artikel1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Stk1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Preis1
End Sub
|