Dat moet echt in dezelfde cel zijn?

Hallo,

Ik zou werken met twee werkbladen :

Als voorbeeld neem ik 3 ploegen

Blad2 : hier plaats je de ploegnamen (in kolom A nummers 1 tot en met 3 en in kolom B de namen van de ploeg/speler die bij het nummer horen)

Vanaf rij 10 (in kolom A) plaats je dan de gewenste nummers om de kalender op te maken.

Blad1 : ik veronderstel dat de kalender begint in cel A1, in cel A1 plaats je volgende formule :

=VERT.ZOEKEN(Blad2!A10;Blad2!$A$1:$B$3;2;ONWAAR)

Deze formule brei je uit naar de gewenste kolommen en rijen van de kalender.

Wat doet de formule : hij zoekt verticaal een waarde, namelijk :
de waarde die ingevuld is in cel A10 zoekt hij in de meest linkse kolom van de tabel (A1 tot B3 op blad2) en neemt de waarde uit de 2de kolom van deze tabel (hier de kolom B).  Onwaar wil zeggen dat de waarde die hij zoekt identiek moet zijn.  Indien er niets of WAAR ingevuld wordt dan zoekt hij een waarde die het best benaderd bij de gezochte waarde.

groetjes

hou geen rekening met de macro in het bestandje gewoon uitschakelen is niet van toepassing hier.
Als er iemand ntoch nog voorstellen heeft, ze zijn altijd welkom !

In zijn meest eenvoudige vorm kan dit opgelost worden door deze code in de module van de sheet zelf:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Value = Range("SourceRange").Cells(Target.Value, 1).Value
End Sub

Voorbeeldje in bijlage. Als we er vanuit gaan dat de in te vullen getallen (2,3,...) de ranking zijn van de elementen in de source range...

Kan wel resulteren in een oneindige loop als de te vervangen elementen ook voorkomen in de vervangende elementen... Onderbreken met CTRL+BREAK.

Bart

ceasar,

dat kan niet opgelost worden met voorwaardelijke opmaak. voorwaardelijke opmaak kan de inhoud van een cel niet veranderen, wel het formaat van de cel...

bart

Ah dat vakantie-gevoel, ik ken dat ;-)

Enfin, om het mysterie op te lossen steek ik een kant-en-klaar voorbeeld in bijlage dat een meer complexe variant is van mijn eerste suggestie.

Deze code doet exact het gevraagde:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo ResetEvents
' Voorkomt oneindige loops
Application.EnableEvents = False
' Verander enkel waardes als ingegeven in de gele range
If Union(Range("TargetRange"), Target).Address = Range("TargetRange").Address Then
    ' Zoek plaats van de ingegeven waarde
    Plaats = Application.WorksheetFunction.Match(Target.Value, Range("SourceRange").Columns(1))
    ' Vervang ingeven waarde als geldige plaats gevonden
    If Plaats > 0 Then Target.Value = Range("SourceRange").Cells(Plaats, 2).Value
End If
Application.EnableEvents = True
Exit Sub
ResetEvents:
    Application.EnableEvents = True
End Sub

Voorbeeld steekt in bijlage... Dat verdient toch wel een zomerse dame blanche, of zo, niet?

Bart

sloeberke,

geloof het of niet: als je per se ingegeven waardes wil vervangen in dezelfde cel, moet je vba gebruiken. daarom mijn opmerking aan het begin van deze topic of dit echt nodig is...
zonder vba kan dit niet in dezelfde cel...

bart