Ich habe ein kleines "Projekt" welches ich mit VBA und Excel gerne Verwirklichen würde, da Tabellen und man es einfach eingeben kann.

Ich habe einige Codeschnippsel im Netz gefunden, leider Funktioniert es nicht so wie ich möchte, Spalte 

Ich würde gerne Muster.txt öffnen, einiges ersetzen und dann Speichern unter dem Pfad J2 Namen in Zeile D2(D2 ist Variabel darum unten die Variable Spalte, dies werde ich per Schleiffe dann immer um 1 erhöhen, was kein Problem darstellt, da ich ein Projekt mit Schleiffe gemacht habe, ich weis es sollte Zeile heissen nicht Spalte :-D

Wäre Klasse wenn mir jemand Helfen könnte was geau falsch ist,

Suchen und ersetzen hab ich leider nicht gefunden wie es geht ohne das ganze in A1 einzufügen, habe dies aber als verdeutlichung mal so stehen lassen.

Mein Code den ich habe und nicht so Richtig Funktioniert:

Public Sub import()
Dim Arr
Dim Datei
Dim FSO
Dim L As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim I As Integer
Dim Str_String As String
Dim Spalte As Long
Spalte = 2
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("E:\Eigene Dateien\muster.txt") 'Anpassen
Str_String = Datei.readall
Datei.Close

'Suchen und ersetzen
Cells.Replace What:="laenge", Replacement:=Range("A" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="breite", Replacement:=Range("B" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Cells.Replace What:="anzahll", Replacement:=Range("E" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="lochx", Replacement:=Range("F" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Cells.Replace What:="lochy", Replacement:=Range("G" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Cells.Replace What:="mmquad", Replacement:=Range("C" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
'Speichern
Set txtFile = fsobj.CreateTextFile("J1" & "D" & Spalte)

End Sub