habe hier ein Makro, das mir Michael freundlicher Weise abgeändert hat:
Vielen Dank zuerst hier noch an Michael !!!
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
Jetzt müßte ich noch 2 Änderungen haben.die erste wäre: Es sollte nach dem Speicherort und Namen gefragt werden.
das zweite: beim speichern sollte (wenn die Datei bereits vorhanden ist), gefragt werden ob überschrieben werden soll oder die neue csv Datei angehängt wird.
Ist sowas möglich ?
Kann man eine csv Datei überhaupt an eine bestehende anhängen ?
Vorab vielen Dank an euch genialen Hackler ;-)
Gruß Erik