Suchen String, aber nur Teil davon ersetzen

[IgorToll]

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 (?)   Do 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:       ' Tabelle1.UsedRange.Replace ", 7:*", ", 7:PDATH", xlPart
        ActiveCell.Replace what:=", 7:*", Replacement:=", 7:PDATH", lookat:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
' bis ENDE (?)  Loop Until Suche Is Nothing
 
Vielen Dank

[steve1da]

Hola,

ok, du verlinkst es also nicht von selber:

http://www.herber.de/forum/messages/1592875.html

http://www.office-loesung.de/p/viewtopic.php?f=166&t=751676

Gruß,
steve1da