Anpassung an Excel 2010
23.04.2013 10:49:12
dr.dr.hase
ich habe vor längerem mit eurer Hilfe ein Marco erstellt, welches ich jetzt gerne anpassen würde, da da "neue" Excel 2010 ja mehr Zeilen zur Verfügung hat...
Ich würde gerne für r 4 einsetzten können.
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
Vielen Dank und Grüsse,
Torsten