Hallöle,

hier der Code:

Function FeldinhalteErsetzen(r As Recordset, Feld As String, ALt As String, Neu As String)
If r.RecordCount = 0 Then Exit Function
r.MoveFirst
Do While Not r.EOF
r.Edit
DoCmd.Hourglass False
r(Feld) = TextErsetzen(r(Feld), ALt, Neu)
r.Update
r.MoveNext
Loop
End Function


Function TextErsetzen(ByVal Text As Variant, Suchen As String, _
Ersetzen As String) As Variant

Dim Position As Integer
Dim Länge As Integer

If IsNull(Text) Then Exit Function

Länge = Len(Suchen)

Position = 0

Do
Position = InStr(Position + 1, Text, Suchen)
If Position = 0 Then Exit Do
Text = Left(Text, Position - 1) + Ersetzen _
+ Mid(Text, Position + Länge)
Loop

TextErsetzen = Text

End Function


Und diese in einem neuen Modul einfach abspeichern und zB mit:

Sub ErsetzenSonderzeichen()

Dim AktuelleDB As Database
Dim r As Recordset

Set AktuelleDB = CurrentDb

Set r = AktuelleDB.OpenRecordset("[meineTabelle]", dbOpenTable)

FeldinhalteErsetzen r, "[MeinFeldname]", vbcrlf, " "

end sub

Das ersetzt Absatzmarken durch Leerzeichen. Kannst natürlich einfach anpassen.

Gruß Leo

Hallo lleopard,

wow und vielen Dank für deine Hilfe. Leider funktioniert es nicht ganz. Ich bekomme einen Überlauf an der Stelle

Text = Left(Text, Position - 1) + Ersetzen + Mid(Text, Position + Länge)

Ich habe nur den Aufruf der Funktion FeldinhalteErsetzen geändert, damit die Vierecke, die das Importieren anstelle eines Zeilenumbruchs erzeugt, durch

FeldinhalteErsetzen r, Spalte6, vbLf, vbCrLf

ersetzt.

Kannst du mir nochmal helfen und mir sagen, wie ich den Überlauf umgehen kann? Oder ist der Datensatz zu groß?

Hallo renewa,

das Problem ist, daß du natürlich in dem DS vbLf durch vbCrLf ersetzt und somit wieder ein vbLf in der zeile gefunden wird.

ich denke du solltet das lösen indem du 2 Durchläufe machst, wenn du diesen Eretzungsvorgang so umsetzen willst.

1. Ersetze vbCrLf durch zb "xxx", dann sind alle Zeilenumbrüche weg.

2. Ersetze nun wieder "xxx" durch vbLf.

Dann sollte das Überlauf-Problem behoben sein.

Gruß Leo

Hallo,

ja du hattest vollkommen Recht. Es funktioniert jetzt einwandfrei. Einmal mehr bin ich dir zum Dank verpflichtet. Wo wohnst du und wie kann ich dir ein Bier spendieren? :)

Dankeschön!

MfG
renewa

Hi renewa,

büdde. Wer hier schreibt, hilft doch gerne. N Bierchen, da sage ich aber auch nicht nein. wenn du mal in die Gegend von Braunschweig kommst, sag bescheid ;-)

cu leo