Habe folgendes Macro gefunden:
Sub csv_umwandel()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
strDateiname = ActiveWorkbook.FullName
strDateiname = Replace(strDateiname, ".xls", ".csv")
strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ";") _
If strTrennzeichen = "" Then Exit Sub
Set Bereich = Selection
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub
Ich habe folgendes Problem:Wenn ich aus meiner Excel Tabelle Spalten markiere (immer Spalten D bis G !)
sollten die Sortierung in der auszugebenden *.csv Datei so aussehen:
Spalte A - D ein Platzhalter zb.: x
dann die markierten Spalten aber in der Reihenfolge:
Spalte E, Spalte G, Spalte D und Splate F.
Ist sowas machbar ? :-)
Gruß
Erik