Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Hi
im Prinzip so:
With Sheets("anderes tabellenblatt").Cells(Rows.count, 1).end(xlup)
.Offset(1, 0).value = Now 'Datum und Zeit
.Offset(1, 1).value = gescannte Artikelnummer
.Offset(1, 2).Value = entnommen oder hinzugefügt, je nach deiner Auswahl
End With
Wo du jetzt die gescannte Artikelnummer her nimmst und wie du erkennst, ob entnommen oder hinzugefügt wurde, musst du selber wissen und im Code hinzufügen.
Gruß Daniel