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