Replace-Befehl
Ansgar
folgendes Makro habe ich in einfacher Form aus der ursprünglichen Anwendung erstellt:
Sub tes()
For nd = 1 To 4
dateiname = Cells(3 + nd, 2)
Range(Cells(3 + nd, 3), Cells(3 + nd, 6)).Replace _
What:=";'*'!", _
Replacement:=";'E:\Entwicklung\[" & datn & ".xls]Tabelle1'!", LookAt:=xlPart, _
searchOrder:=xlByRows
Next nd
Range("A1").Select
End Sub
Aus der Zelle in der Spalte 2 wird der Dateiname (ohne Dateiergänzung) als Text ausgelesen:
z. B. "Haller".
Dieser Dateiname soll dann mit Hilfe des Replace-Befehls eingetragen werden:
bisheriger Zelleintrag z. B. "=Wenn(A1=1;"?";'E:\Entwicklung\[Meier.xls]Tabelle1'!$AC$4)"
geänderter Zelleintrag "=Wenn(A1=1;"?";'E:\Entwicklung\[Haller.xls]Tabelle1'!$AC$4)"
Es kommt zu keinem Fehler, aber ersetzt wird auch nichts. Warum?
Vielen Dank im voraus für Euere Hilfe
Ansgar