Datum

Titel

25.04.2024 11:49:37

Array verwenden

25.04.2024 10:38:52

Bedingte Formatierung per VBA / MaxPoint

25.04.2024 10:30:04

Suche mit MINWENNS und Rückgabe mehrerer Werte

25.04.2024 09:47:49

Daten aus mehreren Dateien untereinander importieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1356to1360

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

TXT-Datei erstellen

Forumthread: TXT-Datei erstellen
4 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

TXT-Datei erstellen

17.04.2014 12:09:49

Pepi

Hallo zusammen
Ich will (muss) wieder mal eine txt Datei erstellen. Vor einiger Zeit bekam ich über dieses Forum den Code in der Beispielmappe. (Durch "Datei speichern unter" als *.txt hat es immer wieder Gänsefüsschen im Text - deshalb diese Art von Code.)
https://www.herber.de/bbs/user/90234.xlsm
Doch leider macht mir der Command sTmp = "" Schwierigkeiten.
Lass ich den Befehl weg, wird bei jedem Print ... auch der bereits geschriebene Inhalt in die txt-Datei geschrieben. Setze ich aber nach jeder Zeile sTmp = "", dann ist die txt-Datei am Ende leer, obwohl zwischendurch Datein reingeschrieben werden.
Wo stimmt denn da was nicht!
Vielen Dank für Eure Hilfe
Pepi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TXT-Datei erstellen

17.04.2014 12:33:10

Rudi
AW: TXT-Datei erstellen

17.04.2014 12:49:18

Pepi
AW: TXT-Datei erstellen

17.04.2014 12:54:21

Rudi
AW: TXT-Datei erstellen

17.04.2014 13:02:53

Rudi

AW: TXT-Datei erstellen

17.04.2014 12:33:10

Rudi

Hallo,
das Problem ist, dass di sTmp=" " anstatt ="" geschrieben hast.

Do While oTxC(zx, 1)  ""
sx = 1
sTmp = ""
Do While oTxC(zx, sx)  ""
If sTmp = "" Then
sTmp = oTxC(zx, sx)
Else
sTmp = sTmp & vbTab & oTxC(zx, sx)
End If
sx = sx + 1
Loop
If Trim(sTmp)  "" Then Print #iFilNum, sTmp
zx = zx + 1
Loop

Gruß
Rudi

AW: TXT-Datei erstellen

17.04.2014 12:49:18

Pepi

Lieber Rudi
Leider nein - ich habe in meiner Verzweiflung beides probiert - leider ohne Erfolg!
Vermutlich liegt der T.. im Detail - doch erlaubt mir mein Balke vor dem Auge ihn nicht zu sehen.
Danke für weitere Tipps
Vielleicht probiert ihr Eure Tipps kurz aus in der Beispielmappe - dann wird es für Alle gleich klar - vielen Dank
mfg Pepi

AW: TXT-Datei erstellen

17.04.2014 12:54:21

Rudi

Hallo,
Vielleicht probiert ihr Eure Tipps kurz aus in der Beispielmappe
hab ich gemacht.
Gruß
Rudi

AW: TXT-Datei erstellen

17.04.2014 13:02:53

Rudi

Hallo,

Sub SU_SAP_Export_TXT()
Dim sPfa$, sFiE$, sFiT$, sTmp$
Dim z&, j%, iFilNum%, zx&, sx%, oTxC As Range
Set oTxC = Workbooks(ThisWorkbook.Name).Sheets(Tabelle1.Name).Cells()
sPfa = ThisWorkbook.Path & "\"
sFiT = "xSAP_" & Format(Now, "dd.MM.YY-hhmmss") & ".txt"
sFiE = "xPegEgl.xlsx"
iFilNum = FreeFile
Open sPfa & sFiT For Output As #iFilNum
zx = 1
Do While oTxC(zx, 1)  ""
sx = 1
sTmp = ""
Do While oTxC(zx, sx)  ""
If sTmp = "" Then
sTmp = oTxC(zx, sx)
Else
sTmp = sTmp & vbTab & oTxC(zx, sx)
End If
sx = sx + 1
Loop
If Trim(sTmp)  "" Then Print #iFilNum, sTmp
zx = zx + 1
Loop
Close #1
End Sub

Gruß
Rudi