Private Sub UserForm_Initialize()
Dim lngLetzteVokabel As Long
Dim lngZufallszahl As Long
Dim strDeutsch As String
Dim rngVokabeln As Range
With Sheets("Vokabeln")
lngLetzteVokabel = .Cells(Rows.Count, 1).End(xlUp).Row
lngZufallszahl = Application.WorksheetFunction.RandBetween(2, lngLetzteVokabel)
Set rngVokabeln = .Range(.Cells(2, 1), .Cells(lngLetzteVokabel, 3))
strDeutsch = Application.VLookup(.Cells(lngZufallszahl, 1), rngVokabeln, 2, False)
End With
With Me
.lblNummer = lngZufallszahl
.lblDeutsch = strDeutsch
End With
End Sub