tabellenblat abspeichern , als trennzeichen

Sub TabellezuCad()
'am 20.02.2007 überarbeitet
Dim smsg As String, spath As String
Dim iCol As Integer, iRow As Long, strTmp As String
If Worksheet_suchen("cad") = True Then
Worksheets("cad").Select
smsg = "Wo soll die Datei abgelegt werden ?"
spath = ordner(smsg)
If spath <> "" Then strTempFolder = spath
strName = Worksheets("Coordinates").Cells(1, 7).Value
'** Es wird eine Tabelle in eine cad/txt Datei gespeichert
Open strTempFolder & strName & ".cad" For Output As #1
With ThisWorkbook.Sheets("cad")
For iRow = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
strTmp = ""
For iCol = 1 To .Cells(iRow, Columns.Count).End(xlToLeft).Column
strTmp = .Cells(iRow, iCol) & vbTab
Next iCol
strTmp = Left(strTmp, Len(strTmp) - 1)
Print #1, strTmp
Next iRow
End With
Close #1
End If
End Sub