Benötige Unterstützung in VBA (.txt-Import in .unv-Import umwandeln)

Sub inc0()
Datei = "C:\Users\Brause\Documents\Dokumente Works\Nico FH\IPH\Excel\zwei_symetrien\inc0.unv"  
Von = "NORMALSTRESS" 'ab Zeile mit diesem Inhalt importieren  
Bis = "FLOWSTRESS" 'ab Zeile mit diesem Inhalt nicht mehr importieren  
Trenn = " " 'Leerzeichen als Trennzeichen zwischen den Feldern  
'Trenn = vbTab 'TAB als Trennzeichen zwischen den Feldern  

SpNr = 1 'Daten ab Spalte A ...  
ZNr = 3 'der Zeile 3 eintragen  


Set DateiEin = CreateObject("Scripting.FileSystemObject").OpenTextFile(Datei, 1, 0) 'Textdatei im öffnen  
Fertig = False 'Schalter initialisieren  
Import = False 'Schalter initialisieren  
Do While Not DateiEin.AtEndOfStream And Not Fertig
    Satz = DateiEin.ReadLine 'Datensatz aus Datei einlesen  
    Satz = Replace(Satz, ".", ",")  
    If Import Then 'Satz ist zu importieren  
        If InStr(Satz, Bis) = 0 Then 'Ende des Datenbereiches noch nicht erreicht  
            SatzEintragen Satz, ZNr, SpNr 'eingelesenen Satz in Tabellenzeile ZNr ab Spalte SpNr eintragen  
            ZNr = ZNr + 1 'nächste Tabellenzeile  
        Else
            Fertig = True 'Ende des vorgegebenen Bereiches - keine weiteren Daten einlesen  
        End If
    Else 'bisher wurde nicht importiert - ...  
        If InStr(Satz, Von) > 0 Then '... beginnt hier der Datenbereich?  
            Import = True 'ja; ab jetzt Zeilen importieren  
            SatzEintragen Satz, ZNr, SpNr 'eingelesenen Satz in Tabellenzeile ZNr ab Spalte SpNr eintragen  
            ZNr = ZNr + 1 'nächste Tabellenzeile  
        End If
    End If
Loop

Von = "TEMPERATURE" 'ab Zeile mit diesem Inhalt importieren  
Bis = "32700" 'ab Zeile mit diesem Inhalt nicht mehr importieren  
Trenn = " " 'Leerzeichen als Trennzeichen zwischen den Feldern  
'Trenn = vbTab 'TAB als Trennzeichen zwischen den Feldern  

SpNr = 8 'Daten ab Spalte H ...  
ZNr = 3 'der Zeile 3 eintragen  


Set DateiEin = CreateObject("Scripting.FileSystemObject").OpenTextFile(Datei, 1, 0) 'Textdatei öffnen  
Fertig = False 'Schalter initialisieren  
Import = False 'Schalter initialisieren  
Do While Not DateiEin.AtEndOfStream And Not Fertig
    Satz = DateiEin.ReadLine 'Datensatz aus Datei einlesen  
    Satz = Replace(Satz, ".", ",")  
    If Import Then 'Satz ist zu importieren  
        If InStr(Satz, Bis) = 0 Then 'Ende des Datenbereiches noch nicht erreicht  
            SatzEintragen Satz, ZNr, SpNr 'eingelesenen Satz in Tabellenzeile ZNr ab Spalte SpNr eintragen  
            ZNr = ZNr + 1 'nächste Tabellenzeile  
        Else
            Fertig = True 'Ende des vorgegebenen Bereiches - keine weiteren Daten einlesen  
        End If
    Else 'bisher wurde nicht importiert - ...  
        If InStr(Satz, Von) > 0 Then '... beginnt hier der Datenbereich?  
            Import = True 'ja; ab jetzt Zeilen importieren  
            SatzEintragen Satz, ZNr, SpNr 'eingelesenen Satz in Tabellenzeile ZNr ab Spalte SpNr eintragen  
            ZNr = ZNr + 1 'nächste Tabellenzeile  
        End If
    End If
Loop

Von = "WEAR" 'ab Zeile mit diesem Inhalt importieren  
Bis = "-1" 'ab Zeile mit diesem Inhalt nicht mehr importieren  
Trenn = " " 'Leerzeichen als Trennzeichen zwischen den Feldern  
'Trenn = vbTab 'TAB als Trennzeichen zwischen den Feldern  

SpNr = 12 'Daten ab Spalte L ...  
ZNr = 3 'der Zeile 3 eintragen  


Set DateiEin = CreateObject("Scripting.FileSystemObject").OpenTextFile(Datei, 1, 0) 'Textdatei öffnen  
Fertig = False 'Schalter initialisieren  
Import = False 'Schalter initialisieren  
Do While Not DateiEin.AtEndOfStream And Not Fertig
    Satz = DateiEin.ReadLine 'Datensatz aus Datei einlesen  
    Satz = Replace(Satz, ".", ",")  
    If Import Then 'Satz ist zu importieren  
        If InStr(Satz, Bis) = 0 Then 'Ende des Datenbereiches noch nicht erreicht  
            SatzEintragen Satz, ZNr, SpNr 'eingelesenen Satz in Tabellenzeile ZNr ab Spalte SpNr eintragen  
            ZNr = ZNr + 1 'nächste Tabellenzeile  
        Else
            Fertig = True 'Ende des vorgegebenen Bereiches - keine weiteren Daten einlesen  
        End If
    Else 'bisher wurde nicht importiert - ...  
        If InStr(Satz, Von) > 0 Then '... beginnt hier der Datenbereich?  
            Import = True 'ja; ab jetzt Zeilen importieren  
            SatzEintragen Satz, ZNr, SpNr 'eingelesenen Satz in Tabellenzeile ZNr ab Spalte SpNr eintragen  
            ZNr = ZNr + 1 'nächste Tabellenzeile  
        End If
    End If
Loop
DateiEin.Close 'Textdatei schließen  
End Sub

Sub SatzEintragen(D, Z, S)
Do While InStr(D, "  ") > 0 'solange es noch zwei aufeinanderfolgende Leerzeichen im Satz gibt ...  
    D = Replace(D, "  ", " ") ' ... diese durch ein einzelnes ersetzen  
Loop
Felder = Split(D) 'Zeile in Felder zerlegen  
Cells(Z, S).Resize(1, UBound(Felder) + 1).Value = Felder 'in der Zeile Z die Spalten ab Spalte S mit den Feldwerten füllen  
End Sub

Sub ImportDatenAusQuelldatei()

'Zieldatei definieren und aktivieren  
Dim Ziel As String
Ziel = "Knoten500.xls"  
Workbooks(1).Activate

'Startzeile m in Ziel festlegen  
m = 1


'Quelldatei definieren und öffnen  
Dim Quelle As Workbook
Set Quelle = Workbooks.Open("C:\Users\Brause\Documents\Dokumente Works\Nico FH\IPH\Excel\gesenk.vtf")  

Sheets("gesenk").Select  


'Setzen der Startzeile i der Tabelle gesenk  
i = 8

'Ermitteln der letzten Zeile in gesenk, die Daten enthält  
Dim LZ As Long
LZ = IIf(IsEmpty(Sheets("gesenk").Range("A65536")), Sheets("gesenk").Range("A65536").End(xlUp).Row, 65536)  

'Das zeilenweise einlesen von Quelle nach Ziel soll bis zur letzten Zeile von Quelle erfolgen  
Do Until i > LZ

'Definition der Spalten in Quelle  
A = Quelle.Sheets("gesenk").Cells(i, 1).Text  
B = Quelle.Sheets("gesenk").Cells(i, 2).Text  
C = Quelle.Sheets("gesenk").Cells(i, 3).Text  
D = Quelle.Sheets("gesenk").Cells(i, 4).Text  
E = Quelle.Sheets("gesenk").Cells(i, 5).Text  

'Zieltabelle aktivieren  
Workbooks(1).Activate
Sheets("ziel").Select  

'Schreiben der Spalten in neue Spaltenposition A nach A, B nach B, C nach C, D nach D, E nach D  
Workbooks(1).Sheets("ziel").Cells(m, 1) = A  
Workbooks(1).Sheets("ziel").Cells(m, 2) = B  
Workbooks(1).Sheets("ziel").Cells(m, 3) = C  
Workbooks(1).Sheets("ziel").Cells(m, 4) = D  
'Workbooks(1).Sheets("ziel").Cells(m, 5) = E  

m = m + 1
i = i + 1

Loop

Quelle.Close 'Quelldatei schließen  

Call Tabelle2.inc0
Call Tabelle46.inc1
'Call Tabelle45.inc2  
'Call Tabelle44.inc3  
'Call Tabelle43.inc4  
'Call Tabelle42.inc5  
'Call Tabelle41.inc6  
'Call Tabelle40.inc7  
'Call Tabelle39.inc8  
'Call Tabelle38.inc9  
'Call Tabelle37.inc10  
'Call Tabelle63.inc61  

MsgBox "Fertig."  

End Sub