Makro suchen ersetzen
Hallo Community,
im Moment bin ich am verzweifeln.
Ich schreibe mir ein Makro was ich für die UST Erklärung benötige.
Dazu habe ich die Kreditoren auf eine 5-stellige Code reduziert. Das klappt hervorragen.
Jetzt kommt aber meine Pain.
Ich möchte diesen 5-stellige Definition in eine andere Spalte kopieren und umbenennen.
Hier ist der Punkt wo mein Makro sich selbstständig macht und mir alle Spalten wo der Name genannt ist überschreibt.
Ich suche mir einen Wolf wie ich den Bug raus bekommen.
Die Programmierung:
'VI_23_2 Makro
'
'
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Copy
Columns("P:P").Select
Selection.Insert Shift:=xlToRight
Columns("P:P").Select
ActiveCell.Replace What:="Text", Replacement:= _
"Name", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2
ActiveCell.Replace What:="Bolon", Replacement:= _
"Bolonia Servicios E Ingenieros S.L.", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2
oder gibt es einen einfacheren Weg mit suchen und ersetzen?
Danke
im Moment bin ich am verzweifeln.
Ich schreibe mir ein Makro was ich für die UST Erklärung benötige.
Dazu habe ich die Kreditoren auf eine 5-stellige Code reduziert. Das klappt hervorragen.
Jetzt kommt aber meine Pain.
Ich möchte diesen 5-stellige Definition in eine andere Spalte kopieren und umbenennen.
Hier ist der Punkt wo mein Makro sich selbstständig macht und mir alle Spalten wo der Name genannt ist überschreibt.
Ich suche mir einen Wolf wie ich den Bug raus bekommen.
Die Programmierung:
'VI_23_2 Makro
'
'
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Copy
Columns("P:P").Select
Selection.Insert Shift:=xlToRight
Columns("P:P").Select
ActiveCell.Replace What:="Text", Replacement:= _
"Name", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2
ActiveCell.Replace What:="Bolon", Replacement:= _
"Bolonia Servicios E Ingenieros S.L.", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2
oder gibt es einen einfacheren Weg mit suchen und ersetzen?
Danke
Please also mark the comments that contributed to the solution of the article
Content-Key: 1429538528
Url: https://administrator.de/contentid/1429538528
Printed on: September 21, 2023 at 21:09 o'clock
6 Comments
Latest comment
Hallo
also, dein Code, den du hier gepostet hast, macht:
Die Spalte I nach Spalte P kopieren, der vorherige Inhalt von Spalte P wird nach Spalte Q kopiert
Dan markierst du nochmals die ganze Spalte P, und suchst aber nur in der aktiven Zelle nach Text und ersetzt dies durch Name
Dann suchst du nochmals in der aktiven Zelle nach Bolon und ersetz dies durch Bolonia Servicios E Ingenieros S.L. (kann ja aber nicht bringen, da in der aktiven Zelle Name steht.
Also, sag uns doch bitte, was du genau erreichen willst
Gruss
also, dein Code, den du hier gepostet hast, macht:
Die Spalte I nach Spalte P kopieren, der vorherige Inhalt von Spalte P wird nach Spalte Q kopiert
Dan markierst du nochmals die ganze Spalte P, und suchst aber nur in der aktiven Zelle nach Text und ersetzt dies durch Name
Dann suchst du nochmals in der aktiven Zelle nach Bolon und ersetz dies durch Bolonia Servicios E Ingenieros S.L. (kann ja aber nicht bringen, da in der aktiven Zelle Name steht.
Also, sag uns doch bitte, was du genau erreichen willst
Gruss
Hallo
Gruss
Die Spalte I nach P kopieren
Columns("I:I").Copy Destination:=Columns("P:P")
und dort den Inhalt von der Spalte I überschreiben.
Passiert logischwereise, wenn Spalte I nach Spalte P kopiert wirdVon Bolon (5-stellige Definition) in den kompletten Firmennamen Bolon Servicios E Ingenieros S.L..
Columns("P:P").Replace What:="Bolon", Replacement:="Bolonia Servicios E Ingenieros S.L.", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Wo ist der Befehl das der Inhalt von der Spalte P in die Spalte Q kopiert wird?
Das hast du hier definiertColumns("P:P").Select
Selection.Insert Shift:=xlToRight
Gruss
Hallo
Ich weiss ja nicht, was du alles kopieren willst, daher kann ich nicht sagen, ob du diese Parameter benötigst, oder nicht
Gruss
das habe ich jetzt wie von Dir beschrieben gemacht. Wie wichtig ist der Befehl nach False? Ist das unrelevant und kann weg?
Hier findest du eine Beschreibung der Parameter zu ReplaceIch weiss ja nicht, was du alles kopieren willst, daher kann ich nicht sagen, ob du diese Parameter benötigst, oder nicht
Also mit der Formel kopiert er mir die Spalte, fügt sie in die Spalte P ein, aber überschriebt mir die Spalte I mit den Inhalt aus der Spalte P
Dann hast du vermutlich in der Spalte I eine Formel hinterlegt??Es steht in der Spalte I nicht mehr Bolon sondern Bolon Servicios E Ingenieros S.L.
plus der Spalte P. Also doppelt. Und ich hätte gerne weiterhin die Spalte I als Referenz stehen und die Spalte P als geänderten/modifizierten Inhalt stehen.
siehe obenplus der Spalte P. Also doppelt. Und ich hätte gerne weiterhin die Spalte I als Referenz stehen und die Spalte P als geänderten/modifizierten Inhalt stehen.
Plus Bolon ist natürlich nicht die einzige Umbenennung sondern 150 andere Firmen werden hier aufgeführt.
?? Hä, und du willst alle 150 Einträge suchen und umbenennen??Gruss