Positief getal naar negatief met VBA

[Senso]

In een kolom bijvoorbeeld H staan getallen ook tekst. Zeshonderd keer 33,33 positief, moet naar -33,33 zonder hulpkolommen, plakken e.d.
Vulgreep is niet gemakkelijk. Reeks voortdurend onderbroken.

Kan dat met VBA? Met vervangen gaat niet. Graag de code.

 

[HSV]

Bv.

Sub hsv()
 Range("h1", Cells(Rows.Count, "H").End(xlUp)).Name = "b"
 [b] = [if(b=33.33,-33.33,b)]
End Sub

 

[JEC.]

Sub jec()
Columns(8).Replace 33.33, -33.33
End Sub

Dit kan dus ook met control H

 

[HSV]

Incl. alles wat lijkt op 33,33 dus ook 33,335 of 133,33.
Voer de code ook eens twee keer achter elkaar uit.

 

[JEC.]

Dat wel, maar weet niet hoe de rest van het bestand eruit ziet natuurlijk.
Anders simpelweg zo

Columns(8).Replace 33.33, -33.33, 1

 

[snb]

[h1:H600]=[if(H1:H600=33.33,-33.33,H1:H600)]

 

[JEC.]

Conclusie is nog steeds dat je geen VBA nodig hebt

 

[Senso]

Conclusie is nog steeds dat je geen VBA nodig hebt

Leg uit?

 

[JEC.]

Selecteer hele kolom --> Control H (find and replace) en dan 33,33 vervangen door -33,33.
Match entire cell contents aanvinken

 

[Senso]

Ja, heel mooi. Bedankt voor de hulp/uitleg.