Új hozzászólás Aktív témák

• #23281 bteebi veterán

  Új Válasz 2014-09-16 11:50:45 #23281

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bteebi

  veterán

  Sziasztok!

  Olyat szeretnék csinálni makróval, hogy egy adott file összes munkalapján kicseréljek egy adott szót, pl. az almát körtére. Makró nélkül könnyen meg lehet oldani, hatókörnek a munkafüzetet kell megadni:

  

  Ilyen opciót azonban VBA-ban sehol se találtam, ezért úgy gondoltam, hogy ciklusban lefuttatom az összes munkalapon. A kód:

  Sub csere()
  Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
  Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
  SearchOrder:=xlByRows
  Next
  End Sub

  Az aktív lapon lefut jól, de a többinél valamiért nem megy. Mi lehet a baj?

Új hozzászólás Aktív témák