• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verschillende talen InputBox

  • Onderwerp starter Onderwerp starter WiKa
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

WiKa

Gebruiker
Lid geworden
11 dec 2008
Berichten
12
Hallo

Ik ben bezig een invulformulier te maken in verschillende talen.
De namen van de velden geeft geen probleem, echter...
Ik heb een verplicht veld, wanneer deze blanco blijft, en er wordt op een OpslagButton gedrukt, verschijnt er een inputbox met de vraag het veld alsnog in te vullen.
In de InputBox kan vervolgens het gevraagde ingevoerd worden
De tekst van deze InputBox wil ik graag of in het Nederlands of in het Engels krijgen, afhankelijk van de taalkeuze.
Nu heb ik een lijstveld met daarin de keuze voor de taal.
In VBA heb ik wat pogingen ondernomen met IF AND/OR THEN, maar het lukt mij helaas nog steeds niet.
Wie kan mij helpen.

WiKa
 
Beste,

De snelste weg naar een oplossing is het plaatsen van een voorbeeldbestand.
 
als de taal in A1 wordt opgegeven:

Code:
InputBox (IIf(Cells(1, 1) = "Engels", "Welcome", "Welkom"))
 
als de taal in A1 wordt opgegeven:

Code:
InputBox (IIf(Cells(1, 1) = "Engels", "Welcome", "Welkom"))

Bedankt SjonR, werkt idd eenvoudig, echter na het invullen van de InputBox moet de waarde overgenomen worden naar het veld op het rekenblad.
 
Laatst bewerkt:
zo dan?

Code:
Private Sub CommandButton1_Click()
If [C6] = "" Then [C6] = InputBox(IIf(Cells(3, 3) = "English", "You need to fill in your personalnumber!", "U moet uw persoonsnummer nog invoeren!"))
End Sub
 
Laatst bewerkt:
Bedankt voor de oplossingen.

In eerste instantie werkte het perfect totdat ik de tabblad ging hernoemen.
In plaats van blad1 heb ik het blad hernoemd naar Invoer
In plaats van blad2 heb ik het blad hernoemd naar Parameters

nadat ik dit ook in de VBA code had gedaan werkte het niet meer.
Wat gaat er fout.

Bijgevoegd het werkblad, ik heb het keuzeveld voor de taal nu op het tabblad "Parameters" geplaatst, dit alleen ter oefening.

WiKa
 

Bijlagen

Laatst bewerkt:
Ik zou het zo doen:
Code:
Private Sub CommandButton1_Click()
    If Sheets("Invoer").Range("C6").Value = "" Then
        Select Case Sheets("Parameters").Range("C11").Value
            Case "Nederlands:": Bericht = "U moet uw persoonsnummer nog invoeren." & vbCrLf & _
                                          "Druk na het invoeren wederom op Ok."
            Case "English:":    Bericht = "You need to fill in your personalnumber." & vbCrLf & _
                                          "Fill in below and press the button again."
        End Select
       Sheets("Invoer").Range("C6") = InputBox(Bericht)
    End If
End Sub
 
Los van het feit dat je voor zoiets beter een userform gebruikt, zal,als er meerdere invoercellen zijn een lange code worden.

Probeer deze eens.
 

Bijlagen

Of als je meerdere talen hebt kun je het op deze manier doen als aanpassing op Emields voorbeeld.
Vba moet dan nog wel aangepast worden, maar dat laat ik aan een specialist over.
 

Bijlagen

Voor meerdere talen en meerdere regels tekst kan je beter gebruik maken van een Dictionary in VBA.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan