Hallo,
Ik zit met een probleempje.
Hoe kan ik in deze code bij Case waar piet of jan staat iets zetten waar hij in blad2 cel a1 de naam uit haalt en het zelfde voor jan.
Dit omdat de namen nog wel eens veranderen en je niet steeds de vba code hoeft aantepassen.
Groetjes Edwin
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
For Each x In Range("A1:A10")
Select Case x
Case ""
x.Interior.ColorIndex = xlNone
Case "piet"
x.Interior.ColorIndex = 5
Case "jan"
x.Interior.ColorIndex = 3
End Select
Next
End Sub
Ik zit met een probleempje.
Hoe kan ik in deze code bij Case waar piet of jan staat iets zetten waar hij in blad2 cel a1 de naam uit haalt en het zelfde voor jan.
Dit omdat de namen nog wel eens veranderen en je niet steeds de vba code hoeft aantepassen.
Groetjes Edwin
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
For Each x In Range("A1:A10")
Select Case x
Case ""
x.Interior.ColorIndex = xlNone
Case "piet"
x.Interior.ColorIndex = 5
Case "jan"
x.Interior.ColorIndex = 3
End Select
Next
End Sub