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 !