Anpassung an Excel 2010

Sub Komb()
Dim i As Long, j As Long
Dim r As Long, x As Long
Dim arrBegriffe() As String
r = 3
x = 20
ReDim arrBegriffe(x)
arrBegriffe(1) = "G"
arrBegriffe(2) = "A"
arrBegriffe(3) = "V"
arrBegriffe(4) = "L"
arrBegriffe(5) = "I"
arrBegriffe(6) = "M"
arrBegriffe(7) = "F"
arrBegriffe(8) = "W"
arrBegriffe(9) = "P"
arrBegriffe(10) = "S"
arrBegriffe(11) = "T"
arrBegriffe(12) = "C"
arrBegriffe(13) = "Y"
arrBegriffe(14) = "N"
arrBegriffe(15) = "Q"
arrBegriffe(16) = "D"
arrBegriffe(17) = "E"
arrBegriffe(18) = "K"
arrBegriffe(19) = "R"
arrBegriffe(20) = "H"
If x ^ r > 2 ^ 16 Then Exit Sub
For j = r To 1 Step -1
For i = 1 To x ^ r Step x ^ (r - j)
Sheets("Tabelle1").Cells(i, j).Resize(x ^ (r - j)).Value = arrBegriffe(((i - 1) / x  _
^ (r - j)) Mod x + 1)
Next
Next
End Sub