Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exceldaten in Ascii.txt speichern

Forumthread: Exceldaten in Ascii.txt speichern

Exceldaten in Ascii.txt speichern
25.12.2004 18:34:11
Lokutus
Hallo,
ich möchte aus Excel heraus eine Ascii Datei (mit festgelegtem Format)erzeugen, welche ich in ein anderes Programm importieren kann. Die Ascii Datei soll wie folgt aussehen:
"
VERSION;1;2
KURSE
wkn1;09.07.99;101;100000;102,02;106,03;100,04;105,05
wkn2;09.07.99;201;200000;202,02;206,03;200,04;205,05
wkn3;09.07.99;301;300000;302,02;306,03;300,04;305,05
wkn4;09.07.99;401;400000;402,02;406,03;400,04;405,05;1000;2000
wkn5;01.07.99;501;500000
wkn5;02.07.99;502;500000
wkn5;04.07.99;503;500000
wkn5;05.07.99;504;500000
wkn5;06.07.99;505;500000
wkn5;07.07.99;506;500000
wkn5;08.07.99;507;500000
wkn5;09.07.99;508;500000
ENDE
"
Die Excel Datei enthält die die Daten in einzelnen Zellen. Beispiel A1=wkn1,A2=09.07.99 usw.
Der Ascii Kopf: VERSION;1;2
KURSE
und die Fusszeile ENDE ist immer gleich.
Wie bekomme ich das möglichst komfortabel in Excel zu stande bzw. ein möglicher Lösungsansatz würde mir auch schon helfen?
Danke und Gruss
Lokutus
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exceldaten in Ascii.txt speichern
25.12.2004 19:05:02
NE
Hi,
probiers mal so:
lg Nancy
--

Sub asdf()
Dim r&, c%, s$
Open "d:\myfile.txt" For Output As #1
Print #1, "VERSION 1.2"
Print #1, "Kurse:"
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
s = ""
For c = 1 To Cells(r, Columns.Count).End(xlToLeft).Column
s = s & Cells(r, c).Value & ";"
Next
Print #1, s
Next
Print #1, "ENDE"
Close #1
End 


Sub
Anzeige
AW: Exceldaten in Ascii.txt speichern
25.12.2004 20:06:38
Lokutus
Hi,
danke für die schnelle Antwort. Leider kenne ich mich nicht so gut aus. Wo genau muss ich den Quellcode einfügen das ich es testen kann.
Gruss Lokutus
AW: Exceldaten in Ascii.txt speichern
25.12.2004 20:23:20
NE
oki, noch fix;-)
in excel / Alt + F11, es öffnet sich der VBEditor
Dort unter Menue Einfügen / Modul, in das Fenster kopierste den Code
Dann noch in der zeile: open "d:\myfile.txt" for output as #1
ggf den Pfad anpassen, also irgendsowas:
open "c:\temp\myfile.txt" for output as #1
VBE schliesen und unter xl Alt+F8 bzw Extras / Makros / asdf ausführen
cu Nancy
Anzeige
AW: Exceldaten in Ascii.txt speichern
25.12.2004 20:44:51
Lokutus
aha danke habs hinbekommen.
vielen dank
gruss Lokutus
;

Forumthreads zu verwandten Themen

Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
löschen des ASCII codes 39 aus einer datenbank
HeinzS


Hallo zusammen,
ich bekomme seit einer Woche immer Downloads (*csv) aus einem Web basierenden Programm. Diese Daten werden von mir entweder in Excel oder Access weiterverarbeitet. Leider ergibt sich ein Problem, nämlich, daß bei jedem Textfeld am Schluß das Zeichen ' (ASCII Code 39) hi...
04.03.2009 08:04:57
Thread-ID: 1056162
4 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Anzeige
Eingabebeschränkung per ASCII in Tabellenblatt
Lenni

Moin Excellianer!
Wie könnte man per VBA in einem festen Tabellenbereich (z.B. "B10:D150") es realisieren, dass mit der ASCII-Codierung nur die Zeichen 73, 77, 86 und 88 zugelassen werden? Diese Nummern entsprechen den Großbuchstaben I, M, V und X.
Wenn etwas anderes eingegeben wird, da...
21.06.2009 20:37:51
Thread-ID: 1083323
7 Beiträge
Tabelle in ein ASCII-File mit Trennzeichen "TAB"
Peter

Guten Tag
Ich habe ein Worksheet namens "Schnittstelle", aus welchem ich ein Datenbereich ab Zelle A1 mit VBA in ein ASCII-File exportieren möchte. Das neue File werde ich analog dem Excel-File benennen, einfach anstelle xls txt. In der Tabelle "Cockpit" (Tabelle ist in der gleichen xls-Da...
07.01.2011 13:09:32
Thread-ID: 1194430
3 Beiträge
Anzeige
Datum+Benutzerdefinierte Zelle in TEXT umwandeln
TommiH

Hallo,
ich habe folgendes Problem, ich habe eine Excel-Tabelle mit rund 200 Spalten von denen 3-4 mit dem Format Datum oder Benutzerdefiniert (hh:ss - also Zeitinformation) formatiert und auch entsprechend gefüllt sind. Der Rest sind Zahlen oder Text-Zellen-Formate.
Da ich das Ganze in...
23.05.2011 12:15:42
Thread-ID: 1215599
2 Beiträge
Excelzeit in Text als rechenbar umwandeln
mike49

Hallo,
in J45 steht diese Formel: =WENN(J44-K46<0;"- ";"+ ")&WENN(J44="";"";TEXT(ABS(J44-K46);"[hh]:mm")).
Mit einer Makrozeile "(Range("J6").Value = Range("J45").Value)" wird dieser Textwert nach J6 übernommen.
Wie kann man erreichen, dass der Textwert aus J45 als rechenbare...
04.06.2012 23:38:08
Thread-ID: 1266124
3 Beiträge
Anzeige
UTF-8 code
Pepi

Hallo zusammen, ich will eine Excel-Adressliste für einen Import in ein Siemens S685-Schnurlos-Telefon in eine *.vcf-Datei umwandeln. Mit dem nachfolgenden Makro funktioniert alles wunderbar, nur werden Umlaute (ä-ö-ü) nicht übernommen. Durch setzen des WEB-Codes auf UTF-8 klappt dies. Doch in...
07.11.2012 08:53:09
Thread-ID: 1285647
5 Beiträge
Zahl in Text umwandeln
josef

Hallo!
In der Spalte "BY" (77) sollen Zahlen textformatiert eingegeben werden.
Wenn ich jedoch eine Zahl eingebe, dann wird diese Zahl wieder in eine Zahl umgewandelt. Gäbe hier eine möglichkeit, diese Zahl bei der Eingabe in eine textformatierte Zahl umzuwandeln?
Private Sub Worksh...
13.12.2012 10:15:00
Thread-ID: 1290672
4 Beiträge
Textdateien in eine Textdatei umwandeln
Martin

Sehr geehrte Damen und Herren,
ich möchte eine beliebige Anzahl von Textdateien über VBA in eine Textdatei kopieren - dies geht über DOS problemlos, aber ich bekomme den Befehl über VBA nicht sauber gestartet.
Ich probiere folgenden Befehl auszuführen
Dim Filename As String
Dim...
10.06.2014 11:00:06
Thread-ID: 1365228
3 Beiträge
Kopiertes Worksheet - Formeln in Text umwandeln
Robin

Hallo,
ich habe folgendes Problem:
Mit unten genannten Code, soll ein existierendes Tabellenblatt kopiert und unter einem bestimmten Namen abgespeichert werden. Das ganze funktioniert, allerdings möchte ich nur die Werte aus den Zellen kopiert haben und nicht die hinterlegten Formeln, d...
22.04.2015 09:02:34
Thread-ID: 1422311
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige