22.11.2017, 12:38
(Dieser Beitrag wurde zuletzt bearbeitet: 22.11.2017, 14:37 von Rabe.
Bearbeitungsgrund: Smilies ausgeschaltet
)
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
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