gebieden met namen kopiëren

Status
Niet open voor verdere reacties.
J

jvbaal

Gebruiker
Lid geworden
2 okt 2000
Berichten
568
Op het bijgevoegde bestand zie je twee gebieden. Een met de naam rood en een met de naam geel. Mijn vraag is of het mogelijk is om op een of andere manier door het intypen van de gebiedsnaam het zelfde aantal gekleurde vakken te krijgen op een andere plaats zoals in het gebied met die naam.

groetjes
Juul
 

Bijlagen

Probeer deze code eens. Daar waar ranges Geel, Rood en GeenKleur gebruikt worden staat dit voor de naam die aan de cellen is gegeven waar je het bereik invoerd.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo CellEmpty:

If Not Intersect(Target, Range("GeenKleur")) Is Nothing Then
    Range(Range("GeenKleur").Value).Interior.ColorIndex = xlNone
End If

If Not Intersect(Target, Range("Geel")) Is Nothing Then
    Range(Range("Geel").Value).Interior.ColorIndex = Range("Geel").Interior.ColorIndex
End If

If Not Intersect(Target, Range("Rood")) Is Nothing Then
    Range(Range("Rood").Value).Interior.ColorIndex = Range("Rood").Interior.ColorIndex
End If

CellEmpty:

End Sub

Succes,
Erik
 
Erik,

Hartelijk dank voor je reactie. Ik ben op het moment geveld door de griep. Later ga ik het nog testen en laat je weten of het me lukt.

groetjes
Juul
 
Het heeft lang geduurd voordat ik op je antwoord reageer.
Sorry hiervoor.
In de tussentijd is alles weer gewijzigd en daardoor het probleem ook opgelost.
Nogmaals hartelijk dank voor je hulp.

Groetjes
Juul
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan