Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umwandlung einer Excel-Datei in eine Textdatei.

Umwandlung einer Excel-Datei in eine Textdatei.
Peter
Sehr geehrte Damen und Herren,
Sie haben mir bereits schon einmal mit der Umwandlung einer Excel- in eine Textdatei geholfen. Leider gibt es sehr "pingelige" Programme, die Textdateien mit einer sehr genauen Formatierung erfordern. Ich habe Ihnen eine Datei hochgeladen, in welcher die Ansprüche beschrieben werden und der mir seinerzeit vermittelte Makro abgedruckt ist. Leider stimmen die Formatierungen nicht: die Zahlen müssen 12-stellig sein mit vorausführenden blancs. Minus-Zahlen sollen als 13. Stelle ein Nachkomma erhalten. Als Trennzeichen wird "|" benötigt.
Vielen Dank für Ihre wertvolle Untestützung.
Mit freundlichem Gruß
Peter Kloßek

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Ausgabe in Textdatei mit festem Format
13.07.2009 21:08:12
Erich
Hallo Peter,
probiers mal damit: 

Option Explicit      ' immer zu empfehlen
Sub Makro1()
' Umwandlung einer Excel- in eine Text-Datei
Dim arrTmp, arrZeilen()
Dim zz As Long, cc As Long
Dim sTmp As String
Dim strZ As String
arrTmp = Tabelle1.Cells(1, 1).CurrentRegion
ReDim arrZeilen(1 To UBound(arrTmp))
For zz = 1 To UBound(arrTmp)
strZ = ""
For cc = 1 To UBound(arrTmp, 2)
If cc > 1 Then strZ = strZ & "|"
If IsEmpty(arrTmp(zz, cc)) Then
ElseIf cc > 1 And IsNumeric(arrTmp(zz, cc)) Then
strZ = strZ & _
Right(String(8, " ") & Format(Abs(arrTmp(zz, cc)), "0.00"), 12)
If arrTmp(zz, cc)
Etwas eigentümlich erscheint mir das Format schon:
- Die Länge der Strings (Spalten B:C) ist nicht festgelegt.
- Negative Zahlen brauchen 13, andere 12 Stellen.
Eine Bemerkung zu "CurrentRegion" bei der Bestimmung des Quellbereichs:
Da in der Beispielmappe die Spalte G leer ist, werden nur die Spalten A bis F erfasst.
Noch ein paar Bemerkungen zum Forum (da du ja recht neu hier bist):
Lies dir doch mal die Forums-FAQ durch.
Wenn du zu einem Thread eine Ergänzu8ng, Antwort o.ä. hast, dann solltest du das im Thread erledigen,
nicht jedoch einen neuen Thread zum selben Thema eröffnen. Das würde sehr unübersichtlich.
Hier im Forum duzen wir uns alle.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Ausgabe in Textdatei mit festem Format
13.07.2009 22:48:18
Peter
Hallo Erich,
vielen herzlichen Dank für Deine Unterstützung. Ich werde es gleich morgen ausprobieren.
Heute habe ich das 1. Mal eine Datei zum Server hochgeladen, dies ist ein wenig schiefgegangen, daher kamen dabei 2 Anfragen heraus. Ich werde das beim nächsten Mal zu verhindern wissen.
Viele Grüße
Peter
AW: Ausgabe in Textdatei mit festem Format
17.07.2009 18:05:17
Peter
Hallo Erich,
ich habe Deinen Code in der Praxis getestet. Von dem weiterführenden Programm wurde die Textdatei ohne Beanstandungen richtig gelesen. Nochmals vielen Dank.
Peter K.

157 Forumthreads zu ähnlichen Themen

Wie lange ist eine Datei/aktuelle Datei offen
Urmila

Hallo,
wie kann ich per VBA prüfen, wie lang eine bestimmte oder aktuelle Datei schon offen ist?
Kann man das im Format mm:ss anzeigen lassen?
LG
Urmila
05.09.2008 08:55:09
Thread-ID: 1007577
7 Beiträge
Anzeige
Fehler beim öffnen einer erstellen Datei
k

Hallo,
wenn ich per Makro einen Auszug aus einer Mappe (einzelne Blätter werden in eine Neue Kopiert) mache und dieser dann einen Namen gebe wie folgt:
ActiveWorkbook.SaveAs SavePath & ADM & "_Daten_" & Date & "_" & Format(Time, "hh_mm_ss") & ".xls" 'Speichert d...
03.08.2009 10:17:53
Thread-ID: 1093141
4 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Anzeige
Makro zum öffnen von Dateien
Dateien

Hallo zusammen,
ich habe ein kleines Problem das sich aber sicherlich mit euerer Hilfe lösen lässt. Bitte nehmt bei euren Antworten aber Rücksicht darauf, daß ich von Makros bisher überhaupt keine Ahnung habe. - Also bitte erklärt es für dumme (damit auch ich es verstehe ;-) ).
Ich habe...
22.11.2009 12:05:42
Thread-ID: 1119129
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Wenn Datei offen keine weitere Datei öffnen
Thomas

Hallo,
ich habe aufgrund einem sehr eigenartigen Problems und aus Performance Gründen die Idee ob es wohl möglich ist per VBA Excel anzuweisen das wenn diese Datei geöffnet ist, keine weiteren Dateien zu öffnen, also das es irgendwie gesperrt ist.
Mein Problem siehe: https://www.herber....
30.04.2010 11:41:22
Thread-ID: 1154543
3 Beiträge
Excel - Datei von Website öffnen
Website

Hallo zusammen,
möchte eine Excel - Datei von einer Website aus aufrufen per Makro.
Das untere klappt leider nicht.
Sub iShares_allinOne_equities()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim mappe5...
28.07.2010 12:04:57
Thread-ID: 1169280
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
11
3
1
6
1
2
2
2
1
5
1
8
6
4
4
15
3
2
10
1
3
1
5
3