csv Deitei erstellen

Sub csv_umwandel()
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim aB As Variant   ' Bereich als ARRAY
Dim r() As Variant
Dim z As Long, s As Long ' zeile/Spalte im Array aB
' Spalte E, Spalte G, Spalte D und Splate F.
r = Array(2, 4, 1, 3)   ' Index in r geht von 0 bis 3, siehe Schleife unten
If Selection.Columns.Count  4 Or Selection(1).Column  4 Then
MsgBox "Es wurde nicht D-G selektiert"
Exit Sub
End If
strDateiname = ActiveWorkbook.FullName
strDateiname = Replace(strDateiname, ".xls", ".csv")
strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ";") _
_
_
If strTrennzeichen = "" Then Exit Sub
aB = Selection   ' hier von 1 bis 4, also D=1 .. G=4
' bzw. wegen r: 2,4,1,3 = E,G,D,F
Open strDateiname For Output As #1
For z = 1 To UBound(aB, 1)
strTemp = ""
' zunächst: "Spalte A - D ein Platzhalter zb.: x"
For s = 1 To 4: strTemp = strTemp & "x" & strTrennzeichen: Next
' dann aus den Spalten D-G:
For s = 0 To 3
If InStr(1, aB(z, r(s)), strTrennzeichen) > 0 Then
strTemp = strTemp & """" & aB(z, r(s)) & """"
Else
strTemp = strTemp & CStr(aB(z, r(s)))
End If
' immer Trennzeichen, außer beim Letzten...
If s