Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
textdatei erstellen
06.02.2006 22:32:55
mehmet
hallo forum,
ich habe in spalte a zelleinhalte beginnend mit a5
wie kann ich die inhalte als eine textdatei speichern
die strings sollen voneinander mit komma (in text) getrennt werden
zb (xls):
a5 - mit dem zweiten hund
a6 - kann man eh nichts machen
a7 - darstellung weil er so
a8 - ...
a. - etc...
soll foldende textdatei erstellt werden:
"mit,dem,zweiten,hund" +
"kann,man,eh,nichts,machen" +
"darstellung,weil,er,so" +
und so weiter bis spalte a kein string mehr hat
dank im voraus
gruss
mehmet

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

Betreff
Datum
Anwender
Anzeige
AW: textdatei erstellen
06.02.2006 22:43:43
Josef
Hallo Mehmet!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub exportTex()
Dim strText As String
Dim lastRow As Long, lRow As Long
Dim sFile As String

sFile = "F:\Temp\test.txt" 'Name und Pfad der Textdatei

lastRow = IIf(Range("A65536") <> "", 65536, Range("A65536").End(xlUp).Row)

Open sFile For Output As #1

For lRow = 5 To lastRow
  
  If Len(Trim$(Cells(lRow, 1))) > 0 Then
    strText = Replace(Trim$(Cells(lRow, 1)), " ", ",")
    
    Print #1, strText
  End If
  
Next

Close #1

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: textdatei erstellen
06.02.2006 23:21:03
mehmet
super, dank dir sep
gruss
mehmet

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige