Textdatei schreiben

Sub TextImport()
Dim sBuffer As String, aBuffer() As String
Dim iFile As Integer, iCounter As Integer
Dim sFile As String
sFile = Range("B1")
iFile = FreeFile
Open sFile For Binary As iFile
sBuffer = Input(LOF(iFile), iFile)
Close iFile
aBuffer = Split(sBuffer, "'")
'    For iCounter = LBound(aBuffer) To UBound(aBuffer)
'    Cells(iCounter + 1, 1).Value = aBuffer(iCounter)
'    Next iCounter
Range("A1:A" & CStr(UBound(aBuffer) - LBound(aBuffer) + 1)).Value = WorksheetFunction.Transpose(aBuffer)
End Sub