Vraag & Antwoord

Anders (software)

excel 97 vraag

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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