export -> import

Sub TextImport()
Dim intRow As Integer, intCol As Integer
Dim strTxt As String
Close
Open "C:\Pfad\Datenbank" For Input As #1
Do Until EOF(1)
intRow = intRow + 1
Input #1, strTxt
strTxt = Application.Trim(strTxt)
strTxt = Application.Clean(strTxt)
Do Until InStr(strTxt, ";") = 0
intCol = intCol + 1
Cells(intRow, intCol) = Left(strTxt, InStr(strTxt, ";") - 1)
strTxt = Right(strTxt, Len(strTxt) - InStr(strTxt, ";"))
Loop
intCol = intCol + 1
Cells(intRow, intCol) = strTxt
intCol = 0
Loop
Close
End Sub

Sub AlsTextSpeichern()
Dim TB As Worksheet, Dateinummer%
Dim z%, s%, TMP$
exportfile = "C:\Pfad\Datenbank"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets(1)
Open exportfile For Output As #Dateinummer
For z = 1 To TB.UsedRange.Rows.Count
If Cells(z, 2).Value = Text Then SL = 10 Else SL = 6
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub