Celwaarde automatisch laten veranderen.

[shadowbikes]

Hallo,

Het volgende probleem.
In cel A1 komt een getal binnen via een extern programma.
In Cel B1 staat een 0
In Cel C1 moet het getal komen welke op A1 binnenkomt, tevens moet als deze waarde is weggeschreven B1 veranderen naar 1.
Als nu een nieuw getal binnenkomt op A1 moet deze weggeschreven worden op C2 en de waarde van B1 moet veranderen naar 2.
Dit alles moet zo'n 5 keer herhaalt worden zodat in kolom C de laatste 5 getallen staan.

m.v.g. Rene

 

[Joske2000]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Cells(Rows.Count, 3).End(xlUp).Offset(1) = [a1]
    [B1] = [B1] + 1
    End If
End Sub

Joske

 

[shadowbikes]

Hoi joske,

ik heb e.e.a in een macro gezet, maar 't geeft geen resultaat. Tenminste ik neem aan dat jouw code in een macro moet staan.

grts rene

 

[Joske2000]

Hallo Rene,

Je moet de module plaatsen achter blad1, dan zal hij het wel doen.

Joske

 

[danny147]

Beste shadowbikes

Alleen zet hij de eerste waarde in cel C2 ipv cel C1.

Groetjes Danny. :thumb:

 

[shadowbikes]

Joske,

Bedankt 't werkt.
Danny het is geen probleem dat de waardes in C2 beginnen

Thanks..