dim intRow
intRow=Rnd * (Cells(Rows.Count, 1).End(xlUp).Row - 1) + 2
MsgBox Cells(intRow,1)
MsgBox Cells(intRow,2)

Sub vokabeln()
a = InputBox("wieviele Vokabeln sollen abgefragt werden?", "", "")
do
MsgBox Cells(Rnd * (Cells(Rows.Count, 1).End(xlUp).Row - 1) + 2, 1)
b = b + 1
If b=a then Exit Do
Loop
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!