Verschillende talen InputBox

[WiKa]

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

 

[tkint]

Beste,

De snelste weg naar een oplossing is het plaatsen van een voorbeeldbestand.

 

[SjonR]

als de taal in A1 wordt opgegeven:

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

 

[WiKa]

Zie Bijlage

 

[loek010]

Je was op de goede weg zie je bestand,

 

[WiKa]

als de taal in A1 wordt opgegeven:

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.

 

[SjonR]

zo dan?

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

 

[WiKa]

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

 

[loek010]

Zo beter ?

 

[edmoor]

Ik zou het zo doen:

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

 

[emields]

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.

 

[popipipo]

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.

 

[edmoor]

Voor meerdere talen en meerdere regels tekst kan je beter gebruik maken van een Dictionary in VBA.