Nummer nach Eingabe automatisch um die ersten drei Zeichen löschen

[Annika2511]

Hallo zusammen,
ich lese in die Zelle A1 eine Nummer mithilfe eines Handscanners ein. Diese Nummer hat immer eine 100 davor stehen (z.B. 100123456). Ich würde nun gerne ein Makro im Dokument hinterlegen, das immer, wenn ich eine Nummer in diese Zelle einlese die 100 zu Beginn automatisch rauschlöscht (also immer die ersten 3 Zeichen).
Könnt ihr mir da weiterhelfen?

Vielen Dank schon mal im Voraus!

[karolus]

Hallo
Frage1: Soll das ausschliesslich in Zelle A1 geschehen?

Frage2: Ist die Eingabe des Scanners eine Zahl oder Text? ( ist die Eingabe blau nach →→Ansicht→→Werte hervorheben ? )


edit:
im angefügtem Beispiel habe ich in Tabelle2 dem Tabellenereigniss Inhalt geändert folgendes Makro zugeordnet:

Code: Alles auswählen

Sub scanner_input(event)
    If right(event.AbsoluteName, 4) = "$A$1" And left(event.Formula, 3) = "100" Then
        event.Formula = mid(event.Formula, 3, len(event.Formula))
    End if
End Sub

Scanner_eingabe_modifizieren.ods

(22.96 KiB) 125-mal heruntergeladen

edit2:
Eine gemischte Eingabe (numerisch|Text) zB 100abc führt mit dem Basiccode oben zu einer Ausgabe von 0abc
der eigentlich äquivalente python-code unten machts richtig: 100abc → abc

Code: Alles auswählen

def input_mod_hundert(event):
    if (event.AbsoluteName.endswith("$A$1")
    and event.Formula.startswith("100")):
        event.Formula = event.Formula[3:]

[Annika2511]

Hallo karolus,
vielen Dank schon mal für deine Antwort.
Zu Frage 1: Ja, das soll ausschliesslich in Zelle A1 geschehen
Zu Frage 2: Die Eingabe ist eine Zahl (die Eingabe erscheint blau bei "Werte hervorheben").

[karolus]

Hallo
dann funktioniert die Beispielsdatei aus meiner Antwort wie gewünscht ?!

[Annika2511]

Ja, habe es gerade mal ausgetestet. Klapp hervorragend. Wahnsinn, vielen Dank !