Hallo !
Ich habe folgendes Problem:
Mit einem Makro will ich Messdaten umwandeln - alle Kommas sollen in Semikolons und anschließend
alle Punkte in Kommas umgewandelt werden.
Mit „Suchen und Ersetzen“ geht das soweit auch alles, aber das zweite Suchen und Ersetzen dauert ewig.
Wahrscheinlich liegt es am Umfang der Messdaten - beim ersten Suchen und Ersetzen werden bis zu 70.000
Ersetzungen vorgenommen. Offensichtlich wird das in einem Zwischenspeicher abgelegt, der dann vor dem
Zweiten Ersetzen schon ziemlich voll ist.
Gibt es eine Möglichkeit den Zwischenspeicher zu löschen bzw. das Suchen und Ersetzen anders zu organisieren?
Zum Verständnis hänge ich die beiden Suchschleifen mit dran:
’ Ersetzen von „,“ gegen „;“
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = „,“
.Replacement.Text = „;“
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
’ Ersetzen von „.“ gegen „,“
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = „.“
.Replacement.Text = „,“
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Danke und Tschüß Volker