Hast du denn diesen "Code" selbst geschrieben?
Wenn man oberflächlich drüberfliegt, denkt man; "Sieht ja recht professionell aus"
Bis man sich mal die Zeilen anschaut:
Dim i As Byte - Musst du so sparsam mit deinem Speicher umgehen, dass du Byte nimmst????
Dim Group1() As String 'Array to store randomly selected names
Dim Group2() As String
Dim Group3() As String
ReDim Hashtags(1 To Group1 + Group2 + Group3) ------------------1 to irgend ein String (auch noch ein String-Array), dessen Wert nicht mal gesetzt wurde????
ReDim Group1(1 To HowMany / 3) - Wenn HowMany=16 wären das: ReDim Group1(1 To 16 / 3) ??????
For ArI = LBound(Group1) To UBound(Group1) ----Group1 ist WEDER befüllt NOCH dimensioniert - nur das hier : Dim Group1() As String.
Ab da habe ich abgebrochen, nur den Code zu lesen erzeugt schon Kopfschmerzen.
|