ich bin gerade dabei eine Excel Tabelle für ein kleines Geschäft zu erstellen.
Die Datei hat 2 Mappen: 1. scan und 2. bestand.
In der ersten Mappe werden Artikel eingetragen und in der zweiten der Bestand gezählt.
Mappe 1 kann ein Artikel öfters besitzen, Mappe 2 soll jeden Artikel nur einmal haben da in einer zweiten Spalte die Anzahl aus der 1. Mappe addiert wird.
Ich habe geschafft, die Daten per VBA von der einen in die andere Mappe zu kopieren.
Zurzeit werden einfach alle Datensätze neu hinzugefügt was nicht optimal ist.
Das Ziel ist es, mehrere Datensätze gleichzeitig übertragen zu können und vor dem Einfügen soll eine Prüfung gemacht werden ob diese Artikelnummer bereits in der Tabelle ist. Falls ja wird diese Artikelnummer übersprungen und mit der Prüfung der restlichen Artikelnummern fortgeführt.
Hoffentlich konnte ich den Sachverhalt gut erkläre sonst gerne Fragen.
Mein jetziger Code:
Sub Übertragen()
Dim EintragCheck1 As Variant
Dim eintragCheck2 As Variant
EintragCheck1 = Sheets("scan").Cells(1, 3).Value
Application.ScreenUpdating = False
Dim leereZeile
Sheets("scan").Range("A2:A10000").Copy
Sheets("bestand").Activate
leereZeile = Sheets("bestand").Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To Sheets("bestand").Cells(Rows.Count, 1).End(xlUp).Row
eintragCheck2 = Sheets("bestand").Cells(1, 2).Value
If EintragCheck1 = eintragCheck2 Then
MsgBox "Eintrag schon vorhanden"
Exit Sub
Else
End If
Next
Sheets("bestand").Range("A" & leereZeile).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub