Hallo Klaus, Hallo Specci48,
vielen Dank für die super Schnelle Hilfe,
klappt jetzt prima, super
Zur Info:
Musste folgendes ändern,
TableText=StrReplace(TableText,Chr(10),Chr(10)&Chr (
13))
in
TableText=StrReplace(TableText,Chr(10),Chr(
13)&Chr(10))