VBA - vind tekst en replace getal ernaast

[Master070192]

Bedankt voor de super oplossingen allemaal. Ik heb intussen de oplossing gevonden.

 

[Master070192]

Bedankt voor alle antwoorden.

Het werkte totdat ik de kolom een opschoof en naar kolom C verplaatste.

In kolom B staan nu de strings
In kolom C staan nu de waarden

lrow = ActiveSheet.UsedRange.Rows.Count



    For i = lrow To 1 Step -1
        c = 1 'maak van y het kolomnummer waarin gezocht moet worden
        
        If Cells(i, c).Value = "Aanmaken nieuwe user" And Cells(i, c + 1).Value > 0 Then
        Cells(i, c + 1).Value = 0
        End If
       
         
            If Cells(i, c).Value = "Nieuwe token" And Cells(i, c + 1).Value > 0 Then
            Cells(i, c + 1).Value = 0
            End If
                
                    
    Next i

Ik snap niet waarom de code niets meer doet. Ik hoef alleen b naar c te wijzigen toch?

 

[VenA]

De uitleg staat in de code van peenvogel

y = 1 'maak van y het kolomnummer waarin gezocht moet worden

Kolom A heeft nr 1 kolom B nr 2 etc.

y is dus een variabele. Dat jij deze variabele b genoemd hebt, was jouw keuze. Dus van b moet je geen c maken maar van 1 een 2

 

[Master070192]

Helaas veranderd er met deze code:

lrow = ActiveSheet.UsedRange.Rows.Count



    For i = lrow To 1 Step -1
        b = 2 'maak van y het kolomnummer waarin gezocht moet worden
        
        If Cells(i, b).Value = "Aanmaken nieuwe user" And Cells(i, b + 2).Value > 0 Then
        Cells(i, b + 2).Value = 0
        End If
       
         
            If Cells(i, b).Value = "Nieuwe token" And Cells(i, b + 2).Value > 0 Then
            Cells(i, b + 2).Value = 0
            End If
                
                    
    Next i

ook niets

 

[VenA]

Heb je jouw eigen bestand als eens geplaatst? Zo nee doe dat eens. Zo ja waar?

 

[Warme bakkertje]

Als in B de strings staan en in C de waarden is het niet b + 2 maar overal b + 1

 

[Master070192]

Bedankt, het werkt weer