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