Ich habe es jetzt Korrigiert und nun sieht der Code so aus:
Dim Datei
Dim FSO
Dim Str_String As String
Dim Spalte As Long
Spalte = 2
Do While Cells(Spalte, 1).Value <> ""
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("E:\Eigene Dateien\muster.GEO")
Str_String = Datei.readall
Datei.Close
'Suchen und ersetzen
Str_String = Replace(Str_String, "laenge", Range("A" & Spalte))
Str_String = Replace(Str_String, "breite", Range("B" & Spalte))
Str_String = Replace(Str_String, "anzahll", Range("E" & Spalte))
Str_String = Replace(Str_String, "lochx", Range("F" & Spalte))
Str_String = Replace(Str_String, "lochy", Range("G" & Spalte))
Str_String = Replace(Str_String, "mmquad", Range("C" & Spalte))
'Speichern
Spalte = Spalte + 1
Debug.Print Left(Str_String, 100)
Loop
End Sub
Nun Fehlt noch das Speichern was ich nicht hinbekomme:
In J1 steht der Pfad und in
"D" & Spalte
Steht der Dateiname
|