Programmcode vereinfachen

[Gockel67]

Moin Gemeinde,

es geht darum einen Dateinamen zu verändern.Dazu habe ich mir aus verschiedenen Quellen im Internet den Programmcode zusammengesucht.
Der Dateiname steht in einem Textfeld und hat folgendes Muster:

\Anlagen\Karten Bilder\LS 001\LS 001 - 00001.jpg

Die Zahl wird ersetzt und die Dateiendung bleibt erhalten.

Hier jetzt der Code dazu der auch funkitioniert:

Code [Auswählen] Erweitern

Dim QuellText As String
Dim ZielText As String
Dim Suche As Integer
Dim Position As Integer
Dim Ergebnis As String

QuellText = BildpfadNeu
Position = InStrRev(QuellText, ".")
Ergebnis = Mid(QuellText, Position)
Suche = InStr(QuellText, "-") ' Findet die Position des Punktes

ZielText = Left(QuellText, Suche - 1) & "- " & Eingabe & Ergebnis
MsgBox ZielText

 QuellText und Eingabe sind jeweils Textfelder.

Meine Frage: Lässt sich dieser Programmcode vereinfachen?

Wünsche allen ein schönes Wochenende
Jörg

[Köbi]

Hallo Jörg
Ich verstehe dein Anliegen nicht ganz. Und ich glaube, der gepostete Code ist nicht vollständig. Kannst du nicht den ganzen Code zeigen?
Und was soll das Ergebnis sein? Eine MsgBox mit dem Zieltext kann ja nicht der Schluss sein.

Gruss, Köbi

[Gockel67]

Hallo Köbi,

doch, das ist der ganze Code der im Klickereignis eines Button steht. Die Zahl im String soll ausgetauscht werden.

Das ist ja vorläufig nur ein Test. Später sollen Daten in einer Tabelle ausgetauscht werden.
Schönes Wochenende
Jörg