AW: =LINKS(A1;LÄNGE(A1)-1) oT
11.08.2008 12:28:45
David
Soweit ich das vom Barcode-Scannen kenne, wird der Code per "SendKey" übertragen, beendet von einer Zeilenschaltung (Enter).
Somit könntest du das Worksheet-Change-Ereignis nutzen.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Worksheet_Change_Error
If Target.Column = 1 Then
Application.EnableEvents = False
Target = Left(Target, Len(Target) - 1)
End If
Worksheet_Change_Exit:
On Error GoTo 0
Application.EnableEvents = True
Exit Sub
Worksheet_Change_Error:
MsgBox Err.Description
GoTo Worksheet_Change_Exit
End Sub
Damit wird, wenn du in Spalte A (=1) eine Eingabe machst, diese Eingabe sofort darauf um eine Stelle von rechts gekürzt.
Den Bereich, der überwacht wird, musst du natürlich auf deine Bedürfnisse ändern.
Und Achtung! Nach einem Scan-Durchlauf solltest du die gesamte Spalte irgendwie kopieren und mit Werten einfügen, denn sobald du in einer Zelle der betreffenden Spalte eine nachträgliche Änderung ausführst, wird das Makro wieder gestartet und streicht dir wieder eine Stelle!
Vielleicht kann man das noch irgendwie abfangen, wüsste jedoch momentan nicht, wie.
Rückmeldung wäre nett.
Gruß
David
PS: Vielen Dank übrigens an Tobias, der mir geholfen hat, meine Idee in ein funktionierendes (!) Makro umzusetzen.
https://www.herber.de/forum/messages/1000794.html