Voorwaardelijke opmaak van getal naar tekst

[Hampert]

Hallo,
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.

Ps mag ook dmv een formule bereikt worden.

Grt Hampert

 

[oeldere]

bedoel je zoiets (zie bijlage)?

=ALS(A1=1;C5;"")

het wijzigen van de waarde in cel a1, door het invullen van een 1 in cel a1 kan volgens mij alleen met VBA bereikt worden.

 

[Hampert]

bedoel je zoiets (zie bijlage)?

=ALS(A1=1;C5;"")

het wijzigen van de waarde in cel a1, door het invullen van een 1 in cel a1 kan volgens mij alleen met VBA bereikt worden.

Nee dit is niet wat ik bedoel dit heb ik al. Ik wil echt de waarde 1 intikken in A1 en dan na verlaten van de cel moet dit veranderen in de waarde van c5.

toch bedankt voor de snelle respons

hampert

 

[oeldere]

dan kom je denk ik toch uit bij VBA.

maar is er een reden dat geen hulpkolom gebruikt mag worden?

 

[Hampert]

Hulpkolom mag wel. Maar wil het bestand verfraaien.

Ga dezelfde vraag bij VBA neerleggen.

Bedankt


Grt Hampert

 

[Cobbe]

Ik heb dit in VBA in een vb-tje gezet.

Cobbe

 

[Hampert]

Ik heb dit in VBA in een vb-tje gezet.

Cobbe

Exact wat ik bedoel.
Hoe kan ik dit nu gebruiken in mijn bestand.
Kan je mij de VBA code sturen?

Alvast bedankt.

Grt Hampert

 

[popipipo]

@Cobbe

Ik heb niet erg veel verstand van VBA maar waarom dit :

If Not [A1] <> 1 Then

en niet dit:

If  [A1] = 1 Then

Zo'n dubbele ontkenning geeft, vind ik, altijd verwarring

 

[Cobbe]

Een spielerei!!
Inderdaad een dubbele ontkenning soms nodig om niet voortijdig uit een routine te springen, maar is ook anders te ondervangen.
Heb het ook verkeerdelijk klakkeloos overgenomen.

Cobbe

 

[Superzeeuw]

@ Heren,

Dezelfde vraag staat nu ook onder het forum gedeelte Visual basic for Applications (VBA)

 

[Hampert]

Dank je allen:thumb:

Ik heb het in VBA gesteld en ga daar verder kijken of ze mij kunnen helpen.

Greets Hampert

 

[Cobbe]

Wat zoek je dan nog als antwoord. Snap hem niet?

CObbe

 

[Hampert]

Sorry Cobbe iets te voorbarig geweest. Omdat jij je antwoord in VBA code gegeven had ben ik verder in het VBA forum gegaan. Ook om niet op 2 forums dezelfde vraag te stellen.

Jou oplossing klopt. Ik wil deze allen uit gebreid hebben over meerdere waarden en meerdere cellen. Dus in de gehele kolom A wil ik dit toepassen met de getallen 1 t/m 50 die verwijzen naar 50 cellen in kolom C.

Nogmaals Sorry voor te snel op opgelost zetten van dit Topic.

 

[Cobbe]

Ik hoop dat het dit is dat je bedoelt.

Cobbe

 

[Hampert]

@ Cobbe

Ik heb voor het gemak een vb neer gezet met daar in de bedoeling.

 

[Cobbe]

Dit doe je toch met een gewone verwijzing of een vert.zoeken formule.

=ALS(Klanten!A1="";"";Klanten!A1)

deze in F1 en doortrekken tot F50
Dan komt in Kolom F elke naam te staan die in Klanten!A1:A50 staat.

Cobbe

 

[Hampert]

@Cobbe,

Ik heb je voorbeeld aangepast zoals ik het wil hebben ( dank zij je voorbeeld).
Alleen denk ik dat de code omslachtig is zou wat vereenvoudigd kunnen maar ik weet niet hoe.

Grt Hampert

 

[Warme bakkertje]

Als ik je vraag goed begrijp moet dit je verder helpen

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, [A1:A50]) Is Nothing And Target <> "" Then
            Target = Sheets("Blad2").Range("C" & Target.Value)
    End If
End Sub

 

[Hampert]

@ Rudi ; Dit is precies wat ik bedoel. Met enkele aanpassingen in mijn bestand ingevoerd en het werkt zoals ik nu kan zien perfect. :d

Dank U:thumb:

@ Cobbe ; Bedankt voor je inzet. :thumb: Ik heb je het niet makkelijk gemaakt door wat onduidlijkheid van mijn zijde

Allen bedankt :thumb::thumb::thumb::thumb:
Greets Hampert.