Sub ArrangeCards()
Dim cell As Range, num As Integer
Tabelle2.Range("B4:E7").ClearContents
Tabelle1.Range("D10").Value = 0
Tabelle1.Range("D11").Value = 0
For Each cell In Tabelle2.Range("B4:E7")
Do
Randomize
num = Int(Rnd * 8) + 1
If WorksheetFunction.CountIf(Tabelle2.Range("B4:E7"), num) < 2 Then
cell.Value = num
Exit Do
End If
Loop
Next cell
For Each cell In Tabelle2.Range("B4:E7")
If cell.Value = 1 Then
cell.Value = Tabelle2.Range("B11").Text
ElseIf cell.Value = 2 Then
cell.Value = Tabelle2.Range("B12").Text
ElseIf cell.Value = 3 Then
cell.Value = Tabelle2.Range("B13").Text
ElseIf cell.Value = 4 Then
cell.Value = Tabelle2.Range("B14").Text
ElseIf cell.Value = 5 Then
cell.Value = Tabelle2.Range("B15").Value
ElseIf cell.Value = 6 Then
cell.Value = Tabelle2.Range("B16").Value
ElseIf cell.Value = 7 Then
cell.Value = Tabelle2.Range("B17").Value
ElseIf cell.Value = 8 Then
cell.Value = Tabelle2.Range("B18").Value
End If
Next cell
End Sub