datum macro werkt niet

[avesoft]

heren

ik heb een bestandje met daar in een macro voor datum invullen in kolom A aan de hand van waarde kolom B maar het werkt niet
kan mij iemand vertellen waarom het niet werkt ?

Bekijk bijlage test datum.xls

gr arie

 

[oeldere]

Je gebruikt onderstaande code.

Welke uitkomst verwacht je in kolom A, als bij B2 test is ingevuld?

Ik ben geen VBA deskundige, dus daar kan ik je onvoldoende bij helpen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
        With Target
            With .Offset(, -1)
                Select Case .Value
                Case "test", "test1", ""
                    .Value = ""
                Case Else
                    .Value = Date
                End Select
            End With
        End With
    End If
End Sub

 

[avesoft]

Oeldere

test en test1 staan standaard in gevult in kolom B

gr arie

 

[oeldere]

 in een macro voor datum invullen in kolom A

welke datum dient in kolom A te komen en waarop is die datum gebaseerd?

 

[avesoft]

Oeldere

test of test 1 staat als vaste waarde in gevuld
als waarde wijzigd van test bv naar test 2 zou dan datum(vandaag) in kolom a moeten verschijnen
gr arie

 

[oeldere]

Deze laat ik aan de VBA kenners over.

 

[huijb]

Dan gaat deze ook naar de sectie VBA.

 

[oeldere]

@Huijb

wat is het probleem als deze vraag via het excel forum wordt gesteld?

 

[pasan]

heb deze net getest en bij mij werkt ut

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
        With Target
            
                Select Case .Value
                Case "test", "test1", ""
                    .Offset(, -1).Value = ""
                Case Else
                    .Offset(, -1).Value = Date
                End Select
            End With
        
    End If
End Sub

 

[avesoft]

pasan

top , het werkt
dank jullie voor de hulp

ge arie