Bepaalde tekst in kolom automatisch getal met 1 verhogen in andere kolom

[perry99]

Hallo,

Ik heb een vraag of er een vba is als er in kolom D de tekst "TK" voorkomt het getal van de vorige "TK" met 1 verhogen in kolom A.

Oftewel:
Kolom: A__________ Kolom D:
1________________ TK

2________________ TK

3________________ TK

enz.

Ik hoop dat iemand mij hiermee kan helpen.

Alvast bedankt voor het meedenken.

Groetjes,

Perry :thumb::thumb::thumb::thumb:

 

[E v R]

zonder vba:

Zet bij de eerste TK in kolom D in kolom A een 1
(ik ga voor het gemak even van cel A1 uit)

Zet in A2:
=ALS(D2="TK";MAX($A$1:A1)+1;"") en kopieer naar beneden door.

met vba:

Sub tst()
Dim cel As Range, i As Long

    With Sheets("blad1") 'pas hier de naam van jouw blad aan
        For Each cel In .Range("D1:D" & .Cells(Rows.Count, "D").End(xlUp).Row)
            If cel.Value = "TK" Then
                i = i + 1
                cel.Offset(0, -3).Value = i
            End If
        Next cel
    End With
    
End Sub

 

[HSV]

Ook zonder VBA; als je toch op rij 1 begint.

In A1:

=ALS(D1="";"";AANTAL.ALS($D$1:D1;"tk"))

 

[perry99]

Hallo EVR en HSV,

Fantastisch, werkt super.

Mijn dank is groot en ben erg blij dat er mensen zijn zoals jullie die anderen met hun excel-problemen willen helpen.

Nogmaals mijn dank hiervoor.

Groetjes,

Perry :thumb::thumb::thumb: