Hallo liebe Forengemeinde,
ich habe ein kleines Problem mit einem VBA-Code, den ich geschrieben habe.
Ich rufe mit einem Sub eine Function auf und importiere mit dieser Function eine Text-Datei in das Excel Sheet.
Nun hat ein Arbeitskollege das Workbook geöffnet um es zu benutzen.
Leider funktioniert bei ihm absolut nicht.
Der Debugger springt ständig an und markiert schon die erste Zeile in der ein String definiert wird.
Dort steht: UStr = Sheets(1).Range("A8")
Jedenfalls dachte ich, dass es daran liegt, dass die Variablen nicht dekliniert sind.
Nun habe ich jede Variable die in der Funktion vorkommt mit bspw.
Dim Ustr as String
definiert.
Nun bleibt der Debugger bei folgendem Befehl hängen:
Underlying = Left(Ustr, Len(Ustr)-3) & ".txt"
Ich habe nun ziemlich viel rumgesucht, aber leider finde ich keine Lösung wieso der Code / die Funktion auf meiner Maschine einwandfrei läuft, bei den Kollegen aber nicht. Zumal alle Add-Ins etc identisch sind und defaultmäßig bei allen gleichermaßer aktiviert sind.
Liebe Grüße
Jules
ich habe ein kleines Problem mit einem VBA-Code, den ich geschrieben habe.
Ich rufe mit einem Sub eine Function auf und importiere mit dieser Function eine Text-Datei in das Excel Sheet.
Nun hat ein Arbeitskollege das Workbook geöffnet um es zu benutzen.
Leider funktioniert bei ihm absolut nicht.
Der Debugger springt ständig an und markiert schon die erste Zeile in der ein String definiert wird.
Dort steht: UStr = Sheets(1).Range("A8")
Jedenfalls dachte ich, dass es daran liegt, dass die Variablen nicht dekliniert sind.
Nun habe ich jede Variable die in der Funktion vorkommt mit bspw.
Dim Ustr as String
definiert.
Nun bleibt der Debugger bei folgendem Befehl hängen:
Underlying = Left(Ustr, Len(Ustr)-3) & ".txt"
Ich habe nun ziemlich viel rumgesucht, aber leider finde ich keine Lösung wieso der Code / die Funktion auf meiner Maschine einwandfrei läuft, bei den Kollegen aber nicht. Zumal alle Add-Ins etc identisch sind und defaultmäßig bei allen gleichermaßer aktiviert sind.
Liebe Grüße
Jules
