Office: suchen/ersetzen Textdatei Makro

Hallo liebes Forum,

dank der Hilfe von Mase sind ein Großteil meiner Fragen schon gelöst *Smilie
*Danke nochmal*

Nun habe ich eine CSV-Datei die ich gerne mittels eines Makros mit "suchen und ersetzen" einige Begriffe ändern möchte. Der Code funktioniert super nur leider

A: sucht und ersetzt er nur einen "befehl" den zweiten führt er leider nicht aus
B: speichert er die Datei immer mit der Endung .neu ich würde gern das er einfach die Datei einfach überschreibt. (Ohne die Datei zu öffnen)

Anbei mein Code

PHP:

         Sub suchenersetzen()


Dim intFilenumber As Integer
Dim vntText As Variant
Dim strInp As String
Dim vTmp, Ms As Object

strInp = "H:SandraMuellerDatenUpload.csv"
vTmp = Array("Filialleiter", "FL")
vTmp = Array("Geschäftsführer", "GF")


intFilenumber = FreeFile
Open strInp For Input As #intFilenumber
vntText = Input(LOF(intFilenumber), #intFilenumber)
Close #intFilenumber

With CreateObject("VBScript.RegExp")
.MultiLine = True
.Global = True
.IgnoreCase = False
.Pattern = vTmp(0)
Set Ms = .Execute(vntText)
vntText = .Replace(vntText, vTmp(1))
End With


If Ms.Count Then
strInp = Replace(strInp, Dir(strInp), Replace(Dir(strInp), ".", "Neu."))

intFilenumber = FreeFile
Open strInp For Output As #intFilenumber
Print #intFilenumber, vntText
Close #intFilenumber
Else
MsgBox "Nix zm Ersetzen gefunden!"
End If
End Sub


:)

 

Hallo Sandra,

meines Erachtens steht zum einen nur die Zeile mit dem Geschäftsführer und GF im Array, da du mit dieser, die Erste überschreibst und zum anderen benötigst du eine Schleife um die gesuchte Begriffe abzuarbeiten. Das könnte dann etwa so aussehen.
Code:

 

danke, das funktioniert sehr gut !

wenn ich jetzt noch mehrere "suchen/ersetzen" Befehle einfügen möchte, kann ich dann einfach

PHP:

         vTmp(2, 0) = "Regionalleiter"
vTmp(2, 2) = "RL"


 

kannst du, dann aber so:
Code:

Hier muß dann aber auch noch die Schleife erhöht werden.
Code:

Welches "Alte" Dokument soll überschrieben werden, das Orginal mit den ausgeschriebenen Wörtern oder die "Neue" Mappe mit dem "Neu" im Dateinamen und den Abkürzungen?

 

Code:

wird bei mir im VBA Editor immer gelb markiert *frown.gif*

Das VBA sucht ja in einer csv-Datei nach den Wörtern und speichert das geänderte Dokument mit dem Zusatz "neu" ab. Ich würde gern, dass er gar kein neues Dokument erstellt, sondern er soll das "alte"Dokument mit den ersetzen Texten speichern.

 

Die Dimensionierung des Arrays habe ich noch vergessen:
Code:

oder besser gleich höher setzen (z.B. 10).

 

zum zweiten Problem, lösche einfach die Zeile raus
Code:

 

zum ersten Problem, nun sagt er mir leider, dass er nix zum ersetzen hat, obwohl die Texte definitiv drin stehen *frown.gif*

 

Das Problem ist wohl Code:

.
Wenn das letzte Wort des Arrays nicht gefunden wird, ist der Zähler null und es wird nichts gespeichert. Das muss geändert werden.

 

Habe das jetzt mal mit einem Zähler "Z" gelöst. Immer wenn ein Wort erkannt wird, wird Z um eins erhöht. Ist Z dann größer als Null, wir gespeichert.
Code:

 

Super danke!