Sub
DoppelRoemTrenn()
Worksheets(
"Tabelle1"
).Activate
Dim
cell
As
Excel.Range
Dim
rng
As
Excel.Range
Dim
i
As
Integer
Dim
r
As
Integer
Dim
LastColumn
As
Long
Set
rng = Range(Cells(9, 12), Cells(9, 20))
LastColumn = Cells(9, Columns.Count).
End
(xlToLeft).Column
Cells(9, LastColumn).Activate
Dim
Obergrenze
As
Long
, Untergrenze
As
Long
, x1
As
Long
, x2
As
Long
Dim
BuchstabenArray
As
String
Dim
Index
As
Variant
BuchstabenArray = (
"G,g,H,h,I,i,I,j,K,k,L,l,M,m,O,o,P,p,Q,q,R,r,T,t,U,u"
)
Index = Split(BuchstabenArray,
","
)
Obergrenze = 26
Untergrenze = 1
For
i = 12
To
20
Randomize
x1 = Int((26 - 12 + 1) * Rnd + 1)
x2 = Int((6 - 1 + 1) * Rnd + 1)
If
IsEmpty(Cells(9, i))
Then
Cells(9, i).Value = Index(x2)
End
If
Next
i
End
Sub