Tabs nicht einheitlich
Michael
hab folgendes Problem: Mein Code wandelt eine Excel-Datei in ein txt-Format um und macht beim abspeichern noch zusätzlich einen Namensvorschlag. Das Problem liegt darin, dass in der txt-Datei die einzelnen Spalten nicht direkt unter einander sind, man kann aus der txt. datei halt nich heraus lesen was zu welcher Überschrift gehört. Das sieht dann so aus:
Der Code in VBA sieht so aus:
Sub test()
Dim Dein_Bereich As Range
Dim sZiel As String, Ausgabe As String
Dim F As Integer
Const strTrennzeichen As String = vbTab
Set Dein_Bereich = Sheets("upload_Kanal").Range("A3:L10")
Dateiname = Sheets("Tabelle1").Cells(5, 1)
sZiel = Application.GetSaveAsFilename(Initialfilename:=Dateiname, filefilter:="(*.xls), *.xls, _
_
_
_
_
_
Text Files (*.txt), *.txt")
If sZiel CStr(False) Then
With Application
For Each Dein_Bereich In Dein_Bereich.Rows
If .WorksheetFunction.CountIf(Dein_Bereich, vbTab) vbTab Then
Ausgabe = Left$(Ausgabe, Len(Ausgabe) - 1)
F = FreeFile
Open sZiel For Output As #F
Print #F, Ausgabe
Close #F
Else
MsgBox "keine Daten vorhanden"
End If
End If
End Sub
Ich bin über jede Hilfe dankbar, der Sinn des ganzen ist es die txt-Datei später wieder in ein Programm einzulesen, das leider keine xls-dateien einlesen kann.
Vielen dank im voraus, schon einmal =)
Gruß Michael