Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: spalte c als text speichern

spalte c als text speichern
09.02.2006 11:20:49
mehmet
hallo forum,
wie kann man die spalte c als textdatei speichern
gespeichert soll es in das verzeichnis wo auch die xls datei ist
name der textdatei soll sein wie die tabelle
die einzelne zeilen sollen mit komma getrennt werden
die abfrage sollte c5 bis ende der spalte c sein
leere inhalte sollen nicht berücksichtigt werden
dank und gruss
mehmet
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: spalte c als text speichern
09.02.2006 11:49:25
Heiko
Hallo Mehmet,
z.B. so:

Sub SpalteCalsTextdatei()
Dim strPfad As String
Dim lnghelp As Long, lngArrCounter As Long
Dim arrOutput() As String
strPfad = ActiveWorkbook.Path & "/" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".txt"
lngArrCounter = 0
For lnghelp = 5 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
If ActiveSheet.Cells(lnghelp, 3) <> "" Then
ReDim Preserve arrOutput(lngArrCounter)
arrOutput(lngArrCounter) = Cells(lnghelp, 3)
lngArrCounter = lngArrCounter + 1
End If
Next lnghelp
Open strPfad For Binary As #1
Put #1, , Join(arrOutput, ",")
Close #1
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
perfect, dank dir heiko, gruss o.T.
09.02.2006 11:59:15
mehmet
8-)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige