Microsoft Excel

Herbers Excel/VBA-Archiv

Suchen, aber nur Teil ersetzen


Betrifft: Suchen, aber nur Teil ersetzen von: Igor
Geschrieben am: 22.11.2017 11:26:31

Hallo alle!

Könnte mir jemand bitte kurz mit Makro helfen?

Ich kopiere alles aus *.src
in Excel A1 einfügen und danach
von Anfang bis zur letzten Zeile (Schleife) suchen nach „5:??, 7:*“ und ersetzen nur „7:*“ auf „7:PDATH“
Besser wäre, wenn ich nach „5:“ alles was größer 2 ist, finden kann.

Z.B.
Satz1 am Ende kann 5:0.5, 7:IRGENDWAS oder 5:2, 7:IRGENDWAS haben und
Satz2 am Ende kann 5:5, 7:IRGENDWAS oder 5:80, 7:IRGENDWAS haben.

Ergebnis SOLL: 5:5, 7:PDATH oder 5:80, 7:PDATH, aber Satz1 nicht berühren.

Satz1 = 0.01 bis 2.0 (mit oder ohne Nachkommastellen)
Satz2 = 5 bis 100

‘ START (?) Finde ( ", 5:??, 7:*" OR ", 5:100, 7:*")
Cells.Find(what:=", 5:??, 7:*", After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

' nur Teil ersetzen:
ActiveCell.Replace what:=", 7:*", Replacement:=", 7:PDATH", lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' bis ENDE (?)

Vielen Dank

  

Betrifft: AW: Suchen, aber nur Teil ersetzen von: SF
Geschrieben am: 22.11.2017 11:27:28

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.

Gruß,
steve1da


  

Betrifft: Siehe auch... von: SF
Geschrieben am: 22.11.2017 11:41:09

http://www.office-loesung.de/p/viewtopic.php?f=166&t=751676
http://www.clever-excel-forum.de/Thread-Suchen-String-aber-nur-Teil-davon-ersetzen


Beiträge aus den Excel-Beispielen zum Thema "Suchen, aber nur Teil ersetzen"