Gewisse Excel Spalten seperat als einzelne TXT Datei speichern

function Replace-IllegalPathChars([parameter(ValueFromPipeline=$true)]$string,$replaceString='_'){  
   return ($string -replace '^com[1-9]|^lpt[1-9]|^con|^nul|^prn|[\\/:?<>|"*]',$replaceString)  
}

# Ausgabepfad der einzelnen Zeilen
$outPath = "C:\temp\KB_IM"  
# Spalten welche exportiert werden sollen
$spalten = "Ticket ID","Title","Incident Description","Solution"  

# CSV-Datei importieren ab Zeile 8 als Objekt importieren
$csv = gc "C:\temp\kb_im\Monatsreport_67_7806504256175727660.csv" | select -skip 7 | convertfrom-csv -Delimiter ";"  

# für jede Zeile der CSV-Datei
$csv | select $spalten | %{
    # setze Namen der Textdatei zusammen aus Spalte 'Description' + '_' + 'Titel' und ersetze illegale Zeichen im Namen 
    $newpath = $outPath + "\" + (($_.Ticket ID + "_" + $_.Title) | Replace-IllegalPathChars -replaceString ' ').Trim()  
    # übertrage die Zeile in die neue Datei
    $_ | convertto-csv -Delimiter ";" -NoTypeInformation | select -skip 1 | set-content $newpath  

+ ps <<<<  kb.ps1

ps <<<< kb.ps1

PS C:\temp\KB_IM> .\kb.ps1
Die Datei "C:\temp\KB_IM\kb.ps1" kann nicht geladen werden, da die Ausführung von Skripts auf diesem System deaktiviert ist. Weitere Informationen erhalten Sie mit "get-help about_signing".  
Bei Zeile:1 Zeichen:17
+ .\kb.ps1 <<<< 
    + CategoryInfo          : NotSpecified: (:) , PSSecurityException
    + FullyQualifiedErrorId : RuntimeException

PS C:\temp\KB_IM> get-executionpolicy
Restricted

PS C:\temp\KB_IM> Set-ExecutionPolicy
Set-ExecutionPolicy : Der Zugriff auf den Registrierungsschlüssel "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell" wurde verweigert.  
Bei Zeile:1 Zeichen:20
+ Set-ExecutionPolicy <<<< 
    + CategoryInfo          : NotSpecified: (:) [Set-ExecutionPolicy], UnauthorizedAccessException
    + FullyQualifiedErrorId : System.UnauthorizedAccessException,Microsoft.PowerShell.Commands.SetExecutionPolicyCommand

Windows PowerShell
Copyright (C) 2009 Microsoft Corporation. Alle Rechte vorbehalten.

PS C:\Windows\system32> Set-ExecutionPolicy

Cmdlet Set-ExecutionPolicy an der Befehlspipelineposition 1
Geben Sie Werte für die folgenden Parameter an:
ExecutionPolicy: Unrestricted

Ausführungsrichtlinie ändern
Die Ausführungsrichtlinie trägt zum Schutz vor nicht vertrauenswürdigen Skripts
 bei. Wenn Sie die Ausführungsrichtlinie ändern, sind Sie möglicherweise den im
 Hilfethema "about_Execution_Policies" beschriebenen Sicherheitsrisiken  
ausgesetzt. Möchten Sie die Ausführungsrichtlinie ändern?
[J] Ja  [N] Nein  [H] Anhalten  [?] Hilfe (Standard ist "J"): j  
Set-ExecutionPolicy : Der Zugriff auf den Registrierungsschlüssel "HKEY_LOCAL_M  
ACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell" wurde ver  
weigert.
Bei Zeile:1 Zeichen:20
+ Set-ExecutionPolicy <<<<
    + CategoryInfo          : NotSpecified: (:) [Set-ExecutionPolicy], Unautho
   rizedAccessException
    + FullyQualifiedErrorId : System.UnauthorizedAccessException,Microsoft.Pow
   erShell.Commands.SetExecutionPolicyCommand

PS C:\Windows\system32>

Monatsreport;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
Evaluation Period;;01.03.2015 to 31.03.2015;;;;;;;;;;;;;;
Definition;;The report shows all incidents which were active in the reporting period. By selecting additional attributes the user is able to build his individual detail report.;;;;;;;;;;;;;;
Scope;;XXXX;;;;;;;;;;;;;;
Data Range;;XXXXXX;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
No.;Ticket ID;Incident Status;Location;Title;Incident Description;Solution;;CI;Open Time;Close Time;VW ISH Cause Code;Prio;Ticket Type;Layer 1;Layer 2;Layer 3
1;IM11111;Closed;DExxx;Test123;"gfgdggf  
gfdg
dg
gfgdggf";;Test12343;25.03.2015;26.03.2015;Customer KnowHow;5;Additional Info;Interfaces;;  
2;IM234545;Transferred;DExxx;...ist der Kunde Löschmarkiert ....;"gergergerger  
gergergergergera";;Test34455;26.03.2015;;;5;Additional Info;Process;Used Cars;Akt  
3;IM678766;Working;DExxx;nicht erreicht !! ....nicht möglich;"rgtergerg  
gergergerger";;;znhtnbhgffhg;08.10.2013;;;5;Incident;Function;;  

Sub KB_einlesen()
    'Ausgabe-Pfad für die neuen Dateien  
    Const OUTPATH = "C:\temp\KB_IM"  
    Dim rngTable As Range, strNewFile As String, cell As Range, fso As Object, arrBuildNameFromColumns As Variant, arrColumns As Variant
    Set fso = CreateObject("Scripting.FileSystemObject")  
    'Array der zu exportierenden Spalten (beginnend mit 0)  
    arrColumns = Array(1, 3, 4, 5, 6)
    'Spalten aus denen der Name der Datei gebildet wird (beginnt mit 0 zu zählen)  
    arrBuildNameFromColumns = Array(0, 2)
    
    With ActiveSheet
        'Anzahl der Zeilen ermitteln  
        Set rngRows = .Range("A9:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
        'Für jede Zeile  
        For Each cell In rngRows
            'Array der Spalten der aktuellen Zeile  
            Dim arrLine()
            ReDim arrLine(UBound(arrColumns))
            'Die gewünschten Spalten ins Array schreiben  
            For i = 0 To UBound(arrColumns)
                arrLine(i) = cell.Offset(0, arrColumns(i)).Value
            Next
            'Neuen Dateinamen zusammensetzen  
            If Len(arrLine(arrBuildNameFromColumns(1))) > 100 Then
            arrLine(arrBuildNameFromColumns(1)) = Left(arrLine(arrBuildNameFromColumns(1)), 100)
            End If
            strNewFile = OUTPATH & "\" & ReplaceIllegalChars(arrLine(arrBuildNameFromColumns(0)) & "_" & arrLine(arrBuildNameFromColumns(1))) & ".txt"  
            'Zeile in neue Datei schreiben  
            fso.OpenTextFile(strNewFile, 2, True).WriteLine (Join(arrLine, ";"))  
        Next
    End With
    Set fso = Nothing
End Sub

'Funktion um Sonderzeichen durch ein Leerzeichen zu ersetzen  
Function ReplaceIllegalChars(strText)
    Set regex = CreateObject("vbscript.regexp")  
    regex.Pattern = "[\\/:?<>|""*]"  
    regex.Global = True
    ReplaceIllegalChars = regex.Replace(strText, " ")  
    Set regex = Nothing
End Function

IMxxxxx;Dxxxx - Test;dieses ist der Titel;dieses ist ein Beispieltext
und sollte untereinder stehen......;

Spaltenbezeichnung (Aray 1):
IMxxxxx
Spaltenbezeichnung (Aray 3): 
Dxxxx - Test;

Spaltenbezeichnung(Aray 4):
dieses ist der Titel

Spaltenbezeichnung: (Aray 5)
dieses ist ein Beispieltext
und sollte untereinder stehen......
...