Herzlichen Glückwunsch...
02.08.2002 01:49:25
L.Vira
Option Base 1
Dim HaWeHe(56)
Sub HWH()
Dim s%
HaWeHe(1) = Chr(65)
HaWeHe(2) = Chr(108)
HaWeHe(3) = Chr(108)
HaWeHe(4) = Chr(32)
HaWeHe(5) = Chr(122)
HaWeHe(6) = Chr(117)
HaWeHe(7) = Chr(118)
HaWeHe(8) = Chr(105)
HaWeHe(9) = Chr(101)
HaWeHe(10) = Chr(108)
HaWeHe(11) = Chr(101)
HaWeHe(12) = Chr(32)
HaWeHe(13) = Chr(71)
HaWeHe(14) = Chr(101)
HaWeHe(15) = Chr(98)
HaWeHe(16) = Chr(117)
HaWeHe(17) = Chr(114)
HaWeHe(18) = Chr(116)
HaWeHe(19) = Chr(115)
HaWeHe(20) = Chr(116)
HaWeHe(21) = Chr(97)
HaWeHe(22) = Chr(103)
HaWeHe(23) = Chr(101)
HaWeHe(24) = Chr(32)
HaWeHe(25) = Chr(115)
HaWeHe(26) = Chr(105)
HaWeHe(27) = Chr(110)
HaWeHe(28) = Chr(100)
HaWeHe(29) = Chr(32)
HaWeHe(30) = Chr(115)
HaWeHe(31) = Chr(99)
HaWeHe(32) = Chr(104)
HaWeHe(33) = Chr(108)
HaWeHe(34) = Chr(101)
HaWeHe(35) = Chr(99)
HaWeHe(36) = Chr(104)
HaWeHe(37) = Chr(116)
HaWeHe(38) = Chr(32)
HaWeHe(39) = Chr(102)
HaWeHe(40) = Chr(252)
HaWeHe(41) = Chr(114)
HaWeHe(42) = Chr(32)
HaWeHe(43) = Chr(100)
HaWeHe(44) = Chr(105)
HaWeHe(45) = Chr(101)
HaWeHe(46) = Chr(32)
HaWeHe(47) = Chr(71)
HaWeHe(48) = Chr(101)
HaWeHe(49) = Chr(115)
HaWeHe(50) = Chr(117)
HaWeHe(51) = Chr(110)
HaWeHe(52) = Chr(100)
HaWeHe(53) = Chr(104)
HaWeHe(54) = Chr(101)
HaWeHe(55) = Chr(105)
HaWeHe(56) = Chr(116)
For s = 1 To 56
Cells(1, s) = HaWeHe(s)
Next
End Sub