Private Sub CommandButton1_Click()
'ich möchte mir in der Tabelle einen Befehlsbutton anlegen.
'Beim drücken soll die Datei im CSV-Format abgespeichert werden
'und automatisch die ;-Zeichen in der 1.Zeile gelöscht werden.
Dim strDatei As String
Dim strZeile As String
Dim strInhalt As String
Dim blnNichtErsteZeile As Boolean
'Dateiname für CSV- Datei generieren
strDatei = ActiveWorkbook.Name & "_" & ActiveSheet.Name & ".csv"
'normale Excel- CSV erzeugen
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strDatei, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close False
'diese wieder einlesen
Open strDatei For Input As #1
While Not EOF(1)
Line Input #1, strZeile
If Not blnNichtErsteZeile Then
If InStr(strZeile, ";") > 0 Then
'wenn in 1. Zeile ein ; vorhanden, dann alle Zeichen
'nach dem ; löschen
strInhalt = Left(strZeile, InStr(strZeile, ";") - 1)
Else
strInhalt = strZeile
End If
blnNichtErsteZeile = True
Else
strInhalt = strInhalt & vbCrLf & strZeile
End If
Wend
Close #1
'neue CSV Datei mit veränderter 1. Zeile erstellen
Open strDatei & "tmp" For Binary As #1
Put #1, , strInhalt
Close #1
'alte CSV Datei löschen
Kill strDatei
'neue CSV Datei umbenennen
Name strDatei & "tmp" As strDatei
End Sub
Gruss- Micha
PS: Rückmeldung wäre nett.