speichern als csv-file
13.08.2004 09:42:30
DirkR
ich hab seid gestern ein problem welches wohl nicht unbekannt ist, und zwar geht es um das speichern als csv-file. über die recherche hab ich folgendes makro gefunden:
Sub csv_selected()
Application.DisplayAlerts = False
Dim Zeile As Object
Dim Zelle As Object
Dim s As String
Open "C:\Eigene Dateien\" & ActiveSheet.Name & ".csv" For Output As #1
For Each Zeile In Selection.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & ";"
Next
Print #1, s
s = ""
Next
Close #1
Application.DisplayAlerts = True
End Sub
das funktioniert auch super gut und ist eine große hilfe für mich, ich müßte es nur ein kleinwenig abändern aber irgendwie bekomme ich das nicht so ganz hin.
das ergebnis von dem makro sieht ja z.b. so aus:
09.08.2002;8745 45;
12.08.2002;8688 89;
13.08.2002;8482 39;
14.08.2002;8743 31;
die ursprüngliche datei so so aus:
09.08.2002 8745,45
12.08.2002 8688,89
13.08.2002 8482,39
14.08.2002 8743,31
kann mir vielleicht jemand dabei helfen wir ich das makro abändern muss, damit folgendes ergebnis rauskommt:
09.08.2002;8745 45
12.08.2002;8688 89
13.08.2002;8482 39
14.08.2002;8743 31
also hintendran darf kein ; mehr sein!
dank im voraus
gruss
dirk
Anzeige