regel toevoegen met status van macro

[mariannevanh]

Ik wil in een bestaande macro een kleine aanvulling aanbrengen.
In de macro worden uit Excel-bestand B twee waarden gelezen. Waarde#1 wordt vervangen door waarde#2. Daarna wordt de volgende regel gelezen en uitgevoerd.

s = Replace(s, a(i, 1), a(i, 2), , , vbTextCompare

Het zou fijn zijn als onderin het Excel-werkblad een regel verschijnt met de ingelezen waarde#1, zodat ik kan zien dat de macro nog steeds bezig is (er komt steeds een andere waarde#1 in beeld).

Omdat ik de macrotaal onvoldoende beheers, leg ik de vraag hier in dit forum neer.

Wie kan mij helpen met deze kleine (?) aanpassing?

Vriendelijke groet,
Marianne

 

[Haije]

kijk eens of je hier verder mee komt

Application.StatusBar =

 

[JEC.]

Run deze eens, in de statusbar zie je de status

Sub jec()
 For i = 1 To 2000
   Application.StatusBar = "we zijn nu bij " & i
 Next
  Application.StatusBar = False
End Sub