Voorwaardelijke opmaak van getal naar tekst

[Hampert]

Hallo,
Ik heb deze vraag bij het excelforum gesteld en daar het advies gekregen het hier ook eens te plaatsen.
Voor diegene die mij denkt te kunnen helpen; Ik heb nog nooit met VBA gewerkt.

Ik zit met het volgende te stoeien;

Ik zou graag een voorwaardelijke opmaak in een cel hebben die als ik een getal invoer na het verlaten van de cel het getal vervangt door een in een andere cel staande tekst.

Bv. in cel A1 geef ik in "1" na het verlaten van de cel zou dit moeten veranderen in de waarde van cel c5.

Wie kan mij helpen.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target.Value = 1 Then Target = [C5]
End Sub

 

[Hampert]

Dank je.:thumb:
Hoe kan ik dit in mijn bestanden invoeren. En hoe kan ik dit vermenigvuldigen. Heb meerder waarde met andere verwijzingen.

Gr Hampert

 

[Warme bakkertje]

Je plaatst deze in de bladmodule v/h betreffende werkblad.
Voor je 2de vraag is een voorbeeldbestandje aan de orde want dit is afhankelijk van de plaats v/d cellen en de vervangende cellen.

 

[Hampert]

Zoals gevraagd heb ik een voorbeeld bijgevoegd.

Hampert.

 

[HSV]

In moduleblad 'registratie'.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
  For i = 1 To 50
     If Not Application.Intersect(Target, Columns(6)) Is Nothing And Target.Value = i Then
       Target.Value = Sheets("Klanten").Cells(i, 1)
     End If
   Next
End Sub

 

[Hampert]

Allen hartelijk dank voor jullie inbreng. :thumb:

Mijn "probleem" is opgelost in het excel forum.

Greets Hampert

 

[Hampert]

In moduleblad 'registratie'.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
  For i = 1 To 50
     If Not Application.Intersect(Target, Columns(6)) Is Nothing And Target.Value = i Then
       Target.Value = Sheets("Klanten").Cells(i, 1)
     End If
   Next
End Sub

Harry ik zie nou net dat jou oplossing bijna gelijk is aan die ik in het excel forum gekregen heb.

 

[HSV]

Ja, dat krijg je als je dubbel post Hampert.
Maar je bent er mee geholpen, en daar ging het om.

Succes.