title image


Smiley Re: Excel nach CSV konvertieren ?
moin, dieses Makro sollte es erledigen



Sub MappeAlsTextdateiSpeichern() 'export

Dim Daten As Range, Zeile As Object, Zelle As Object

Dim strTemp As String

Set Daten = ActiveSheet.UsedRange

Open "c:\test.csv" For Output As #1

For Each Zeile In Daten.Rows

For Each Zelle In Zeile.Cells

strTemp = strTemp & CStr(Zelle.Text) & ","

Next

Print #1, strTemp

strTemp = ""

Next

Close #1

End Sub

Benutze Excel 2000
Gruß aus Schleswig-Holstein




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: