Microsoft Excel

Herbers Excel/VBA-Archiv

speichern als csv-file

Betrifft: speichern als csv-file von: DirkR
Geschrieben am: 13.08.2004 09:42:30

hi all,

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
  


Betrifft: AW: speichern als csv-file von: sergiesam
Geschrieben am: 13.08.2004 09:50:44

Hi,

ohne zu testen: Streich einfach das letzte Zeichen von s weg:

Print #1, left(s, len(s)-1)
Gruß,
sam


  


Betrifft: AW: speichern als csv-file von: Uduuh
Geschrieben am: 13.08.2004 09:52:24

Hallo,
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
      s=Left(s,Len(s)-1)
    Print #1, s
    s = ""
    Next
  Close #1
Application.DisplayAlerts = True
End Sub

Gruß aus'm Pott
Udo


  


Betrifft: AW: speichern als csv-file von: DirkR
Geschrieben am: 13.08.2004 10:01:29

danke für die vielen antworten!

hat funktioniert!

danke
dirk


  


Betrifft: AW: speichern als csv-file von: Patrick
Geschrieben am: 13.08.2004 09:59:10

Mach das doch mit einer If anweisung! für das ; nimste ne varibale! So nun fragste ab ob der in zeile osder spalte wie auch immer ist und wenn der in 1 ist dann variable = ";" else variable=""


 

Beiträge aus den Excel-Beispielen zum Thema "speichern als csv-file"