Opgelost inputbox met twee invoervelden

[Egbert12345]

hoi,

In een macro gebruik onderstaande code. MyValue geeft 1 invoerveld, maar is het mogelijk om twee invoervelden te bewerkstelligen?

groet Egbert

Message = "De huidige naam is: " & (Chr(13)) & BestaandeNaam & (Chr(13)) & (Chr(13)) & "Wat wordt de nieuwe naam?" ' Set prompt.
Title = "Wijzigen naam" ' Set title.
MyValue = InputBox(Message, Title, Default)
If MyValue = "" Then GoTo einde_macro
If MyValue = 0 Then MsgBox "nul"

 

[edmoor]

De Inputbox doet dat niet.
Dat kan je wel simpel zelf maken met een Userform.

 

[emields]

voorbeeldje vergeten, of niet willen, plaatsen?

 

[HSV]

Bv.

cells(1).resize(,2) = array(inputbox("naam1"),inputbox("naam2"))

 

[Egbert12345]

bedankt

 

[Egbert12345]

Hoi, van Edmoor kreeg ik het advies om een userform te maken, inderdaad handiger. Nu heb ik een voorbeeldbestandje gemaakt en een voorbeeld van internet gehaald. De macro klapt nu op het onderdeel "Private Sub UserForm_Initialize()". In eerste instantie wilde ik een pulldown menu met alleen "balans en "resultatenrekening", maar nu wil ik de waardes uit cel L2 t/m L4.
Hebben jullie een idee waar ik het verkeerd doe?

groet Egbert

 

[edmoor]

Je verwijst naar een werkblad met de naam Werkblad1 en die bestaat niet.

 

[Egbert12345]

Wat enorm dom van mij, excuses.

groet Egbert

 

[edmoor]

Geen probleem.
Bomen en bos verhaal

 

[Egbert12345]

Hoi Edmoor (of collega)

Zie mijn voorbeeldbestand. Ik heb een test combobox gemaakt. Het pull down menu haalt de informatie uit de cellen B3 t/m B5, maar ik heb ook een bereik van die cellen opgenomen in cel G3.

Hoe kan ik : "Set rng = ws.Range("B3:B5")" zo instellen dat die verwijst naar G3, want soms komen er omschrijving bij.

groet Egbert

 

[edmoor]

Ik begrijp niet wat je met die 3 in G3 wilt.

 

[Egbert12345]

Die 3 is het aantal records dat bij B3 t/m B5 staat (is AANTALARG). Als ik nu bijvoorbeeld een "test4" toevoeg dan wijzigt dat aantal. Nu moet ik bij Set rng = ws.Range("B3:B5") de formule handmatig wijzigen in VBA. Ben ik zo helder genoeg?

 

[edmoor]

Doe dan dit:

Set rng = ws.Range("B3:B" & ws.Range("G3") + 2)

Maar dat aantal heb je niet nodig als je het zo doet:

Set rng = ws.Range("B3:B" & ws.Range("B3").End(xlDown).Row)

 

[Egbert12345]

Bedankt maar weer.

 

[HSV]

Of:

Set rng = ws.Range("B3", ws.cells(rows.count,2).End(xlup))