Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel zu ASCII - mit best. Leerzeichentrennung

Excel zu ASCII - mit best. Leerzeichentrennung
Fabian
Hallo Leute,
ich habe ein Spreadsheet: 4 Säulen, 400 Zeilen. Alles Zahlen.
Ich würde diese Daten gerne in ein Text-Format, also ins ASCII-Format bringen, und zwar mit Leerzeichen-Trennung (also keinen Tabs). Das Problem was ich habe ist, dass es eine bestimmte Anzahl von Leerzeichen zwischen den Zahlen geben muss:
[space]ZAHL_1[space][space]ZAHL_2[space][space]ZAHL_3[space]Zahl_4
Habt Ihr eine Ahnung, wie ich das hinkriege?
Ich brauche die Daten für ein Statistiktool, das auf MS Dos basiert.
Freue mich über jede Antwort, die mich weiterbringt!
Danke und Grüße,
Fabian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Excel zu ASCII - mit best. Leerzeichentrennung
31.05.2011 17:41:25
Glenn
Hi.
Ich würde das ganze als .csv speichern und einfach mit Programmen wie Notepad++ oder Textpad mit der ersetzen funktion die ; durch [space][space] ersetzten.
das [space] am Anfang würde ich am ehesten mit dem Macrorecorder von Textpad davor setzten.
oder musst du das jeden Tag machen?
AW: Excel zu ASCII - mit best. Leerzeichentrennung
31.05.2011 17:43:28
Christian
Hallo
zB in der E1 die Formel:
=" "&"A1&" "&B1&" "&C1&" "&D1
nach unten ausfüllen - sprich, die rechte untere Ecke von E1 doppelklicken
anschl. ggf die Formeln durch Werte ersetzen.
Gruß
Christian
AW: Excel zu ASCII - mit best. Leerzeichentrennung
31.05.2011 17:48:36
Glenn
Da fällt mir noch dieses Script ein das ich oft und gerne benutze.
Sub SaveCSV()
' Speichert den Inhalt eines Arbeitsblatts als CSV-Datei
' mit wählbarem Trennzeichen und Maskierung von Einträgen
' von Nils@Kaczenski.de
' Ohne Gewähr!
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String
strMappenpfad = ActiveWorkbook.FullName
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")
strDateiname = InputBox("Wie soll die CSV-Datei heißen (inkl. Pfad)?", "CSV-Export",  _
strMappenpfad)
If strDateiname = "" Then Exit Sub
strTrennzeichen = ";"
If strTrennzeichen = "" Then Exit Sub
Set Bereich = ActiveSheet.UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub
unter strTrennzeichen = ";" müsstest du nur das ; durch [space][space] ersetzten.
Den rest würde ich dann noch in einen Texteditor erledigen.
Ich hoffe ich konnte helfen.
Glenn
Anzeige
AW: Excel zu ASCII - mit best. Leerzeichentrennung
31.05.2011 19:31:03
Fabian
DANKE, hat geklappt! :)
AW: Excel zu ASCII - mit best. Leerzeichentrennung
31.05.2011 20:20:12
Hajo_Zi
Hallo Fabian,
warum offen?

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige