|
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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | Public flg As Boolean
Sub GefundenenWert_Select(meinWert)
Dim zl As Long
Dim sp As Long
On Error Resume Next
zl = 0
zl = Columns([spBarcode]).Find(what:=meinWert, LookAt:=xlWhole).Row
On Error GoTo 0
sp = [spAnzahl]
If zl = 0 Then
Call EndeDerListe_Select(meinWert)
Cells(3, 2).Select
Exit Sub
End If
Cells(zl, sp).Select
Cells(zl, 3).Select
ActiveCell.FormulaR1C1 = "Ja"
Cells(3, 2).Select
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
|
|