bestimmte Werte aus einer Reihe heraus selektieren

Hallo,
Ich habe folgendes Problem:
Ich möchte in einer Reihe von Zahlen und Buchstaben einen ganz bestimmten Teil ausblenden und in meine Excel-Zelle einfügen.
Es handelt sich in diesem Fall nur um 2 verschiedene Codes.
Die Codes werden mit einem Barcodescanner eingescannt.
Beispiel 1: gescannt: 2K8087177825000030
ich brauche aber nur: 8087177825 (also die ersten beiden und die letzen 6 weg)
Beispiel 2: gescannt: 1CDEC8000150889 oder DEC8000150889
ich brauche aber nur: 8000150889 (also nur die letzten 10 werden gebraucht)
Beide Werte kommen in einer Tabelle vor, beide Werte ändern sich ständig, in den Werten gibt es kein Sonderzeichen, nur Buchstaben und ganze Zahlen.
Also nicht ganz so schwer. Es gäbe ja eine Möglichkeit über eine =Wenn...-Formel. Dafür brauche ich aber pro Eingabefeld ein Ausgabefeld. Das ganze sollte aber so laufen, das ich schlichtweg die Zelle markiere, scanne und der selektierte Wert steht in der Zelle. Der Bereich, wo die Werte eingegeben werden, ist bekannt und ändert sich nicht.
Im voraus schon mal vielen Dank
Marcus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then 'Range("A1:A10") ist der Eingabebereich, anpassen! If Len(Target) = 18 Then 'Länge des Scancodes 18 Zeichen, dann Target.Value = Mid(Target, 3, 10) 'die ersten 2 und letzten 6 Zeichen abschneiden Else 'sonst Target.Value = Right(Target, 10) 'die letzen 10 Zeichen verwenden End If End If End Sub

Hy,
Nein, der Code funktioniert auch nicht per Hand. Der Scanner macht automatisch "Enter". Denn nach der Eingabe wird bereits die nächste Zelle markiert.
Ich habe den Code ins Tabellenfenster kopiert, und auch als Modul laufen lassen. Den Eingabebereich habe ich angepasst. Nix. Es passiert nix! Muss man eventuell im Excel etwas aktivieren? Ich werde mal ein leeres Tabellenblatt zum Testen aufmachen. Vielleicht wird in dem Lieferschein was unterdrückt...
Um die Sache etwas verständlicher zu machen:
Es geht hier um einen Lieferschein mit 20 Positionen.
Jede Position enthält zwei Nummern.
Fall 1: In Spalte C wird in den Zellen C24 bis C43 ein 15 stelliger Code hinterlegt, von dem ich aber nur die letzten 10 brauche. Der Code enthält ganze Zahlen und Grossbuchstaben (z.B: 1CDEC8000150625)
Fall 2: In Spalte D wird in den Zellen D24 bis D43 ein 18 stelliger Code hinterlegt, von dem ich aber die ersten 2 und die letzten 6 ausblenden muss. Auch der Code enthält ganze Zahlen und Grossbuchstaben (z.B: 2K8087177607000010)
Also könnte man das in zwei unterschiedliche Routinen aufbröseln. Ich denke, das sich die Zahlen in der nächsten Zeit nicht gross verändern werden. Auch könnte man ganz gut falsche Eingaben verhindern, aber da kann mir ja jemand später noch einen heissen Tip zu geben :-)
Ich würde mich echt freuen, wenn das klappt. Es würde mir eine ganze Menge Arbeit ersparen...
Grüsse
Marcus

Beliebteste Forumthreads (12 Monate)

bestimmte Werte aus einer Reihe heraus selektieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread