VBA - string letzten 6 Zeichen der dir abschneiden

[Zaiga]

Hallo zusammen,

Ich verwende ein Makro um bei Excel Bilder Namen einzulesen. Die Jpeg Dateinamen enthalten jedoch unnötige letzte 6 Zeichen im Namen. Wie kann ich diese bei VB am einfachste aus dem String löschen.
Hier der Code

 

[madmax2010]

hat das mit dem thread zu tun?
https://www.computerbase.de/forum/t...er-weiss-nicht-mit-was.2038788/#post-25965141

 

[Raijin]

In VBA gibt es ebenfalls die LEFT/RIGHT/MID Funktionen, die man aus der Tabelle kennt.
Die letzten 6 Zeichen löscht man also ganz einfach, in dem man Left(Len(text)-6) eingibt, was soviel heißt wie "Nimm Länge - 6 Zeichen von Links startend".

 

[Zaiga]

In VBA gibt es ebenfalls die LEFT/RIGHT/MID Funktionen, die man aus der Tabelle kennt.
Die letzten 6 Zeichen löscht man also ganz einfach, in dem man Left(Len(text)-6) eingibt, was soviel heißt wie "Nimm Länge - 6 Zeichen von Links startend".

Vielen Dank! Kannst du mir vlt die ganze Syntax schreiben wie das mit dem String aussehen würde? Ich muss das weiterschicken und bin nur am Handy ( Danke!!

 

[Bemme90]

strFile = Left(strFile, Len(strFile) - 6)

Reduziert die vorhandene Variable um 6 Zeichen

 

[Janush]

Hallo zusammen,

Ich verwende ein Makro um bei Excel Bilder Namen einzulesen.

So wie ich das sehe, liest dein Makro keine Bildernamen ein, sondern Bilder anhand von Namen in Excel. An welcher Stelle willst du denn Kürzen? Die Namen die in deiner Liste stehen, oder nachdem sie in Excel eingefügt wurden? Oder hast du die gekürzten Namen in Excel, aber die Dateien haben alle längere Dateinamen und du willst das jetzt zusammenfinden? Und wem musst du das weitereiten? Ich werde irre hier :-)