Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten in Speichern ohne carriage return

Daten in Speichern ohne carriage return
19.09.2007 16:06:00
Ralf
Hallo zusammen,
mit folgendem Code kann ich Daten sammeln und in einer Txt-Datei abspeichen. Funktioniert auch soweit, nur am ende des Strings in der Txt-Datei wird noch ein "carriage return" erzeugt. Wie kann man das erzeugen des letzten "carriage return" unterbinden?
Vielleicht kann jemand helfen?
Gruß Ralf

Sub Speichern()
Dim liZeile As Integer, lstrInhalt As String
For liZeile = 1 To 20
lstrInhalt = lstrInhalt & "" & Range("A" & liZeile).Value
Next
Open "deinPfad\deinDateiname.txt" For Output As #1
Print #1, lstrInhalt
Close
lstrInhalt = ""
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Daten in Speichern ohne carriage return
19.09.2007 20:15:00
Horst
Hi,
unter Excel 2003 nicht nachvollziebar.
mfg Horst

AW: Daten in Speichern ohne carriage return
19.09.2007 21:37:37
Nepumuk
Hallo Ralf,
einfach so:
Print #1, lstrInhalt;

Gruß
Nepumuk

AW: Daten in Speichern ohne carriage return
19.09.2007 21:42:21
Harry
Hallo Ralf,
vielleicht so?

Sub Speichern()
Dim liZeile As Integer, lstrInhalt As String
For liZeile = 1 To 20
lstrInhalt = lstrInhalt & "" & Range("A" & liZeile).Value
Next
lstrInhalt = Left(lstrInhalt, Len(lstrInhalt) - 1) 'letztes Zeichen abtrennen...
Open "deinPfad\deinDateiname.txt" For Output As #1
Print #1, lstrInhalt
Close
lstrInhalt = ""
End Sub


Gruß
Harry

Anzeige
AW: Daten in Speichern ohne carriage return
20.09.2007 12:11:00
Ralf
Hallo Nepomuk, Hallo Harry,
vielen Dank für die Mühe.
Der Tip von Nepomuk führt zum gewünschten Ergebnis. :-)
Gruß Ralf

Man lernt laufend neues.... :-) o.w.T.
20.09.2007 18:22:35
Harry

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige