macro

[dijkie]

Hallo,

Zou iemand mij kunnen helpen met de volgende macro's

Stel als ik op een gemaakte macroknop klik, dan moet ik een messagebox krijgen met de vraag, welk woord wilt U invoegen, en dan vul ik vervolgens iets in.

vervolgens krijg je vraag 2, "wat is de afkorting van dit woord?", en ook dat vul ik in, als ik nu op oke klik dan moet hij het woord in cel a1 weergeven, en in cel b1 de afkorting.

En elke volgende vraag moet dan weergegeven worden in cel a2 en b2 etc etc etc.

Is denk ik een beetje moeilijk maar namens het schoolbestuur bedankt als dit lukt.

Vr gr eRICK.

[LucHeyndrick]

Bah... moeilijk?

Sub Afkortingen()
    Dim i As Integer
    Dim strWoord As String
    If Range("A1").Value = "" Then
        i = 1
    Else
        i = Range("A65536").End(xlUp).Row + 1
    End If
   
    Do
    strWoord = InputBox("Geef een woord")
        Cells(i, 1).Value = strWoord
        Cells(i, 2).Value = InputBox("Geef de afkorting")
        i = i + 1
    Loop While strWoord <> ""
   
End Sub

Luc

[dijkie]

Oke Luc bedankt!!

Dit is hem helemaal behalve als ik na de tweede vraag op oke klik, zou de messagebox moeten verdwijnen en dat doet hij niet, zou dat nog opgelost kunnen worden.

Alvast bedankt.

groetjes.
Erick