Replace macro maken

[frankie1986]

beste mensen ik heb een vraag

ik wil een simpele macro maken

in de kolom a
staan verschillende waardes per cel zoals
200*15
100*15
80*7
ga zo maar door
nu wil ik dat de * wordt vervangen door x hoe doe ik dat

met vriendelijke groet
Frank

 

[RonaldGJ]

Je zegt dat hij in de kolom, rij (iets) tot (iets) de * moet REPLACEN voor x!!

Dat doe je doormiddel van het in een string te zetten. Replace(String waar het in staat,wat je wilt vervangen(in dit geval *),waarvoor je het wilt veranderen(in dit geval x)).

Succes ermee:thumb:

Ronald!

 

[RonaldGJ]

Ik heb het eergister ook eens gebruikt! Ik vond het wel een beetje lastig om er achter te komen omdat ik het nog nooit gebruikt had met Excel. Ik gebruik altijd Visual Basic !

Omdat het nogal lastig is heb ik hier de code even gemaakt!

Sub Replacen()
Dim strVoor As String
Dim strNa As String
For i = 1 To 14
strVoor = Cells(i, 1)
strNa = Replace(strVoor, "*", "x")
Cells(i, 1) = strNa
Next
End Sub

Sub Replacen()
Dim strVoor As String
Dim strNa As String
If Cells(1, 2) = "*" Then
For i = 1 To 14
strVoor = Cells(i, 1)
strNa = Replace(strVoor, "*", "x")
Cells(1, 2) = "x"
Cells(i, 1) = strNa
Next
ElseIf Cells(1, 2) = "x" Then
For i = 1 To 14
strVoor = Cells(i, 1)
strNa = Replace(strVoor, "x", "*")
Cells(1, 2) = "*"
Cells(i, 1) = strNa
Next
End If
End Sub

Met deze code kun je constant wisselen tussen "*" en "x". Misschien nog is handig

Ik heb het zelf even getest, en hij doet het!!

Veel succes ermee, Ronald!

 

[frankie1986]

hartsikke bedankt

 

[RonaldGJ]

Graag gedaan:thumb: !