Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
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
Inhaltsverzeichnis

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

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-)

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige