Archief - [VBA] Waarde tonen of verbergen

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Z

ZackWhite

Legacy Member
Aangenaam :unsure:

Ik zou graag weten hoe het volgende kan verkregen worden in excel:

Als ik op een cel klik, toon dan de waarde die overeenkomt met de waarde op een andere sheet.

Heb dus op 1 sheet een tabel staan. (Tijden van zwemmers, verticaal staan de namen, horizontaal de tijden per afstand). Op de 2de sheet heb ik dan dezelfde lay-out maar zonder tijden. Enkel de namen en verschillende afstanden staan er nog.

Nu zou ik er voor willen zorgen dat als ik op 1 cel klik in sheet 2, dat excel diezelfde cel gaat zoeken in sheet 1 en die waarde laat zien. En als ik dan nog is klik dat hij die terug verbergt.

Ik heb dit nu 'half' opgelost met een checkbox boven de kolommen, en naast de namen. Dus als ik bv de checkbox naast 'Ian thorpe' aanvink en die van 50 vrije slag en 100 vrije slag, da toont hij die 2 desbetreffende tijden.

Maar stel dat ik nu ook nog 'Michael Phelps' aanvink, dat gaat excel ook weer de 50 vrije slag en de 100 vrije slag laten zien terwijl ik bv alleen de 100 vlinderslag wil laten zien.

Ik had er al aan gedacht op in elke cel een checkbox te plaatsen, maar als die lijst van zwemmers groter wordt, ga ik op den duur met een 1000tal checkboxen zitten, dus ik zoek een andere oplossing.

PS: De letterkleur in wit zetten en zwart als er op geklikt wordt, is ook geen oplossing vermits er met de getoonde waardes zou gerekend moeten worden in een volgende stap :)

Mvg,
P

Parnakra

Legacy Member
Iets à la
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Value == "" Then
      Target.Value = Sheets("targetSpreadsheet").Range(Target.Address).Value
    Else
      Target.Value = ""
    End If
End Sub
J

Jerre Muesli

Legacy Member
Waarom checkboxen als ge beter werkt met multiselect listboxen?
En zet op uw tabel in sheet 1 een autofilter die ge manipuleert vanuit sheet 2 dmv uw listboxen. Dan moet ge enkel de rijen gaan kopiëren die overblijven zonder ook maar iets 'op te zoeken'.
Z

ZackWhite

Legacy Member
Is opgelost :)

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:T150")) Is Nothing Then
If IsEmpty(Target.Value) Then
Target.Value = Sheets("Times").Range(Target.Address).Value
Else
Target.ClearContents
End If
End If
End Sub
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan