Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

excel 97 vraag

hvkessel
3 antwoorden
  • ik heb een volgend probleem:
    cel a1 wordt ingevuld met steeds wisselende getallen. wel een beperkt aantal vaste getallen ( ongeveer 20 )
    als echter in cel a1 het getal 1 wordt ingevoerd moet het niet mogelijk zijn om in cel b1 bepaalde getallen in te voeren. dus een beperking in keuze van invoer die niet zomaar kan worden veranderd.Wat is de meest simpele manier om dit te realiseren? liever gebruiken we geen formulieren, maar kan dat dan wel?
  • Zonder VBA zou ik het niet weten. Zoiets als dit misschien? 20 en 40 zijn de "verboden getallen" voor B1:

    [code:1:e00c243df8]Private Sub Worksheet_Change(ByVal Target As Range)
    InvoerBeperken
    End Sub

    Sub InvoerBeperken()
    Dim rngInvoer(2) As Range
    Dim intA1(20) As Integer
    Dim intB1(20) As Integer

    Set rngInvoer(1) = Sheets("Blad1").Range("A1")
    Set rngInvoer(2) = Sheets("Blad1").Range("B1")

    intA1(0) = 1
    ' enz.: Verdere waarden van intA1(n)
    intB1(0) = 20
    intB1(1) = 30
    intB1(2) = 40
    ' enz.: Verdere waarden van intB1(n)

    If rngInvoer(1).Value = intA1(0) Then
    If rngInvoer(2).Value = intB1(0) _
    Or rngInvoer(2).Value = intB1(2) Then
    MsgBox ("In cel B1 kan " & rngInvoer(2).Value & _
    " niet ingevoerd worden. Voer een ander getal in.")
    rngInvoer(2).Select
    rngInvoer(2).Value = ""
    End If
    End If
    End Sub[/code:1:e00c243df8]
  • De eenvoudigste manier lijkt mij via gegevensvalidatie.
    Stel dat (bv.) in B1 niet de getallen 20 en 40 mogen worden ingevoerd als A1 het getal 1 bevat.
    Selecteer B1. Kies in het menu Data-Valideren en kies op het tabblad Instellingen bij "Toestaan": Aangepast en vul in bij Formule: =als(a1=1;en(b1<>20;b1<>40)) .
    In hetzelfde scherm kun je via de andere tabbladen er eventueel nog voor zorgen dat bij selecteren van B1 een invoerbericht- en bij het typen van een niet toegestane waarde een foutmelding wordt weergegeven.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.