Delimiter =
";"
With
ActiveSheet
lRow = .Cells.Find(what:=
"*"
, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lCol = .Cells.Find(what:=
"*"
, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ff = FreeFile
Open DstFileName
For
Output
As
#ff
For
Ze = 1
To
lRow
For
Sp = 1
To
lCol - 1
strZe = strZe & .Cells(Ze, Sp) & Delimiter
Next
Sp
strZe = strZe & .Cells(Ze, Sp)
Print #ff, strZe
strZe =
""
Next
Ze
End
With
ErrorHandler:
If
Err.Number <> 0
Then
MsgBox
"Fehler Nr. "
& Err.Number & vbCrLf _
& Err.Description, vbCritical + vbOKOnly,
"Das ging schief ..."
If
ff > 0
Then
Close #ff
End
Sub