Eingabe kürzen die Zweite
08.09.2014 21:52:05
Mike
hast mir sehr geholfen mit der ersten Prozedur.
Eine Eingabe mittels Scanner soll ab einer bestimmten Zeichnkette gekürzt werden. Hallo an alle, speziell an Hajo,
hast mir sehr geholfen mit der ersten Prozedur.
Eine Eingabe mittels Scanner soll ab einer bestimmten Zeichnkette gekürzt werden. Hatte beim ersten mal funktioniert. Seit dem nicht mehr. Funktion steht als Makro in der Tabelle, aber beim Scannen wird nichts ausgeführt.
Wo liegt der Fehler?
kleine Randbemerkung, die Tabellen bleiben wochenlang offen und es wird die gleiche Funktion in jeder Tabelle (7 am Stück) verwendet. Ist dies vllt. schon der Fehler?
Hatte einmal einen Debugger-Fehler auf dem Schirm. Nur weggeklickt, seitdem geht nichts mehr.
Danke für die Hilfe im VOraus!
Hier nochmal die Funktion:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If InStr(Target, "C") > 0 Then
Target = Mid(Target, InStr(Target, "C"))
End If
Application.EnableEvents = True
End Sub
Anzeige