VBA - zeichen im String austauschen

22/02/2016 - 18:30 von J. Wiesner | Report spam
Hallo zusammen,

ich bin ein VBA Newby und habe folgende Herausforderung:

Ich lese über einen String den Wert eines Dateinamens aus.
='C:\aaa\Other\[XXX Bench Weekly.xls]Glance'!D10

Wie kann ich aus dem string die zeichen XXX mit 002 austauschen?

='C:\aaa\Other\[002 Bench Weekly.xls]Glance'!D10

Die Krux ist, dass die 002 nicht fest im Makro vorgegeben sein soll. Vielmehr ist die 002 eine Filialnummer, welche im Sheet "Set up" in der Zelle E6 eingetragen wird. Das Macro soll nun die Zeile E6 im Set up auslesen und in einem anderen Sheet "Performance DOW" die XXX gegen diesen Wert austauschen.

Habe bis dato im Web und in den mir zu verfügung stehenden Büchern nichts gefunden, darum wende ich mich vertrauensvoll an euch.

Vielen Dank schon mal vorab.
 

Lesen sie die antworten

#1 Claus Busch
22/02/2016 - 18:43 | Warnen spam
Hallo,

Am Mon, 22 Feb 2016 09:30:40 -0800 (PST) schrieb J. Wiesner:

Die Krux ist, dass die 002 nicht fest im Makro vorgegeben sein soll. Vielmehr ist die 002 eine Filialnummer, welche im Sheet "Set up" in der Zelle E6 eingetragen wird. Das Macro soll nun die Zeile E6 im Set up auslesen und in einem anderen Sheet "Performance DOW" die XXX gegen diesen Wert austauschen.



passe die Bezüge im Code noch korrekt an:

With Sheets("Performance DOW")
.Range("A1") = Replace(.Range("A1"), "XXX", Sheets("Set up").Range("E6"))
End With


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen