ich habe ein tolles Makro hier in dem Forum gefunden, welches exakt das tut, was ich brauche, allerdings soll der die Textdateien nicht anzeigen, sondern einfach speichern...
Hier ist der Code:
Sub SubstituteSave()
Dim arr() As String
Dim iCounter As Integer
Dim sSource As String, sTarget As String, sTxtA As String
Dim sTxtB As String, sTxt As String, sPath As String
Dim i, letztezeile As Long
letztezeile = Sheets("Recherche").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To letztezeile
sPath = "E:\Import\Test\" 'ThisWorkbook.Path & "\"
sSource = sPath & Sheets("Recherche").Range("A" & i).Value 'sPath & Range("b1").Value ' _
Name der Textdatei
sTarget = Sheets("Recherche").Range("A" & i).Value ' Neuer Name der Textdatei
sTxtA = "Blödsinn" ' alter Text
sTxtB = "Marc+TEST" ' neuer Text
Close
Open sSource For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
If InStr(sTxt, sTxtA) Then
sTxt = Replace(sTxt, sTxtA, sTxtB)
End If
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = sTxt
Loop
Close
Open sTarget For Output As #1
For iCounter = 1 To UBound(arr)
Print #1, arr(iCounter)
Next iCounter
Close
On Error GoTo ERRORHANDLER
Shell "notepad " & sTarget, vbMaximizedFocus
Exit Sub
ERRORHANDLER:
MsgBox " Job erledigt!"
Next
End Sub
Ich nehme an, es liegt an der Zeile :Shell "notepad" & sTarget, vbMaximizedFocus
Was muss ich schreiben, damit er die Textdatei einfach unter gleichem Namen abspeichert, also quasi überspeichert?
Danke und Gruß
Marc