Daten als txt - Probs mit Zellformaten

Sub TXT_DATEI()
Dim Bereich As Range
Dim SpeicherPfad As String
Application.ScreenUpdating = False
SpeicherPfad = _
IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") & _
"Meine.TXT"
Set Bereich = Tabelle1.UsedRange.SpecialCells(xlCellTypeVisible)
With Workbooks.Add
Application.CutCopyMode = False
Bereich.Copy
.ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
SpeicherPfad, _
FileFormat:=xlUnicodeText, CreateBackup:=False
.Close
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End Sub

Wenn ich nun diese Dateien in eine neue Tabelle kopieren will sind meine ganzen Zellformate verschwunden.
23,5 wird zu 23.5 und somit als Datum angezeigt.
0005 wird als 5 angezeigt (benutzerdefiniertes Format "0000"
Das einzige was ich mir denken kann ist, das es an diesem Satz liegt:
FileFormat:=xlUnicodeText, CreateBackup:=False
Was muss da bei FileFormat rein, das die Zellformate mitübernommen werden?
thx Gerhard