Sub ASCII_ZEICHEN_GENERIEREN()

Dim i, x

For i = 32 To 255

x = Chr(i)

ActiveCell.FormulaR1C1 = i

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = x

ActiveCell.Offset(1, -1).Range("A1").Select

Next

End Sub