Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.10.2025 18:08:18
Behälter-, Bestandsmanagement
12.10.2025 12:13:05
Excel hat alter Version synchronisiert (aktuelle Daten weg)
12.10.2025 09:40:32
Wert in Exceltabellen suchen und Fundstelle ausgeben
12.10.2025 02:58:05
Kalenderwoche zählen
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle in ein ASCII-File mit Trennzeichen "TAB"

Forumthread: Tabelle in ein ASCII-File mit Trennzeichen "TAB"

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-Datei wie die Tabelle "Schnittstelle") steht in Zelle E3 die Anzahl der Zeilen und in Zelle E5 die Anzahl der Spalten, die exportiert werden sollen. Als Feldtrennzeichen muss "TAB" geführt werden.
Ich habe noch einer Lösung gegoogelt, habe aber nichts gefunden (z.B. auch was das Feldabgrenzung betrifft).
Kann mir jemand weiterhelfen?
Danke und Gruss, Peter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabelle in ein ASCII-File mit Trennzeichen "TAB"
07.01.2011 13:09:32
Rudi
Hallo,
teste mal: 
Sub yyyy()
Dim arrTmp(), sTmp, i As Long, j As Long
ReDim arrTmp(1 To Sheets("Cockpit").Range("E3"))
j = Sheets("Cockpit").Range("E5")
For i = 1 To Sheets("Cockpit").Range("E3")
sTmp = Sheets("Schnittstelle").Cells(i, 1).Resize(, j)
sTmp = WorksheetFunction.Transpose(sTmp)
arrTmp(i) = Join(WorksheetFunction.Transpose(sTmp), vbTab)
Next i
Open ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".txt") For Output As #1
Print #1, Join(arrTmp, vbCrLf)
Close #1
End Sub

Gruß
Rudi
Anzeige
AW: Tabelle in ein ASCII-File mit Trennzeichen "TAB"
07.01.2011 18:12:26
Peter
Hallo Rudi
Ganz herzlichen Dank!!
Das hat auf Anhieb geklappt.
Gruss und schönes Wochenende
Peter
;

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
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
Anzeige
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
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
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
CSV einlesen und umwandeln
Mark

Hallo zusammen!
Ich habe ein Makro welches mir xls. Dateien einliest und an eine bestimmte Stelle kopiert. Leider steigen wir derzeit auf das CSV Format um. Daher brauche ich eine Möglichkeit CSV Dateien einzulesen und diese dann in ein anständiges Format umzuwandeln. Das derzeitige Einfüge...
25.09.2015 12:23:00
Thread-ID: 1449391
4 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