|
Hallo zusammen,
ich habe folgendes Problem, ich lasse eine Excel-Datei in eine.csv-Datei umwandeln und möchte das Semikolon am Spaltenende entfernt haben. Ich möchte eine Prüfung einführen, ob die nächste Spalte leer ist und wenn ja kein Semikolon am Ende ausgeben.
Sub TabelleInTextdatei()
Dim Daten As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Activate
Set Daten = Range("A1:C2")
Open "Pfad" & i & ".csv" For Output As #1
For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
s = s & CStr(Zelle.Text) & ";"
Next
Print #1, s
s = ""
Next
Close #1
Next i
End Sub
Vielen Dank für Eure Hilfe. |