Hallo VBA Gemeinde,

ich habe von einem alten Kollegen seine Excel-Tabelle übenommen. Wir nutzen sie für unsere monatliche Inventur. 
Da ich noch nicht viel Ahnung von VBA habe, benötige ich Eure Hilfe. :)

Also die Tabelle ist so aufgebaut:

http://www.fotos-hochladen.net/uploads/bersicht2rx3atz7i0.png

Wenn die Tabelle gefüllt ist, scannen wir die Artikel mit einem Barcode-Scanner ab (dabei ist die Zelle B3 aktiv) und wenn z.B. der Artikel mit der Inventarnummer 133440 da ist, wird automatisch ein "JA" unter "Gefunden?" reingeschrieben. Dann wird automatisch das Feld B3 geleert und es kann weiter gescannt werden. Während der scannerei, ist B3 immer aktiv bzw. aufgewählt.

Wenn ein Artikel im Lager ist, der nicht in der Liste auftaucht, wird jetzt die Inv.Nummer ganz unten reingeschrieben. Ohne Artikelnamen usw. Hier zu sehen:

http://www.fotos-hochladen.net/uploads/unbenannt16i1n2rcbey.png

Das möchten wir ändern. Wir möchten, dass diese Artikel nicht unten auftauchen, sondern in einem anderen Tabellenblatt. Ist das möglich?
Wenn ihr mit dem Quellencode gar nicht klarkommt oder er viele Fehler hat, dann wäre ich über Alternativen erfreut. :)

Vielen Dank im Voraus!!! 

Gruß Tim

So sieht der Quellcode aus:

Public flg As Boolean

Sub GefundenenWert_Select(meinWert)
    
'-- Variablen deklarieren
    Dim zl As Long
    Dim sp As Long
    
    
'-- Bestimmen der Zeile in die gesprungen werden soll. Gesucht wird nur in Spalte [spBarcode]
    On Error Resume Next
    zl = 0
    zl = Columns([spBarcode]).Find(what:=meinWert, LookAt:=xlWhole).Row
    On Error GoTo 0
    
'-- Bestimmen der Spalte, in die gesprungen werden soll
    sp = [spAnzahl]

'-- meinWert wurde nicht gefunden
    If zl = 0 Then
        Call EndeDerListe_Select(meinWert)
        Cells(3, 2).Select
        Exit Sub
    End If
    
'-- Sprung ausführen
    Cells(zl, sp).Select
    
'-- Ja eintragen
    Cells(zl, 3).Select
    ActiveCell.FormulaR1C1 = "Ja"
    Cells(3, 2).Select
    
    
'-- Spalte E (BarcodeEingabe) Inhalte löschen
    flg = True: Columns([spScanner]).ClearContents
    flg = True: Cells(2, [spScanner]) = "Scanner"
    
End Sub
'----------------------------------------------------------------
Sub GeheInZelle(zl, sp)
Cells(zl, sp).Select
End Sub
'----------------------------------------------------------------
Sub EndeDerListe_Select(meinWert)
        Cells(4, [spBarcode]).End(xlDown).Offset(1, 0).Select
        Selection = meinWert
        Selection.Offset(0, 1).Select
End Sub
'----------------------------------------------------------------

Sub SpaltenAusblenden()
Columns("M:IV").Hidden = True
Rows("17:65536").Hidden = True
End Sub
Sub SpaltenEinblenden()
Columns("M:IV").Hidden = False
Rows("17:65536").Hidden = False
End Sub