Sub Planung()
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("C:\Users\Winkel.txt", True)
    Set b = fs.CreateTextFile("C:\Users\1.txt", True)
    Set c = fs.CreateTextFile("C:\Users\2.txt", True)
 
 
    For i = 2 To 94 Step 1
    Namea = Sheets("Export").Range("A" & i).Value
    Nameb = Sheets("Export").Range("B" & i).Value
    Namec = Sheets("Export").Range("C" & i).Value
 
 
    a.Write (Namea & vbCrLf)
    b.Write (Nameb & vbCrLf)
    c.Write (Namec & vbCrLf)
 
 
    Next
 
    a.Close
    b.Close
    c.Close
 
    m.Close
    n.Close
End Sub