Hallo,
auf die Schnelle ungetestet.
erstmal die Frage: Wie fügt man hier Bilder ein? Den Button hab ich noch nicht entdeckt.
Zu deinem Code: Der sieht auf den ersten Bick schon ganz gut aus. Aber ja, da sind noch ein paar Fehler drin.
Was willst du z.B. hiermit bezwecken? CellsOut = ThisWorkbook.Worksheets("Hashtagcloud Generator") = 5
Soweit ich weiß hat das Worksheetitem keine Standardeigenschaft. Selbst wenn dem so wäre, würde dir am Ende nur True oder False zurückgegeben.
Gleich die nächste Zeile ist genausolcher Blödsinn: ReDim Hashtags(1 To Group1 + Group2 + Group3)
Group1,2&3 hast du schließlich als Stringarrays dimentsioniert. Da kannst du sie nicht als Long-Variable zur Größenbestimmung eines anderen Arrays nutzen. Setze diese Zeile etwas nach unten, nachdem du NoOfHashtags1,2&3 berechnet hast dann kannst du diese Variablen anstatt Group nehmen.
Die folgenden 3 Zeilen solltest du umgestalten, damit für Howtomany auch Eingaben möglich sind, die nicht durch 3 teilbar sind. z.B. die Eingabe 10.
ReDim Group1(1 To Int(HowMany / 3))
ReDim Group2(1 To Int(HowMany / 3))
ReDim Group3(1 To HowMany - ubound(Group1) - ubound(Group2))
Zu guter Letzt beziehst du dich in Cells(RandomNumber2, 1) und Cells(RandomNumber3, 1) immer auf die erste Spalte Das musst du noch anpassen sodass am Ende Cells(RandomNumber2, 2) und Cells(RandomNumber3, 3) steht.
PS: Dein gegenwärtiger Code wird dich aufgrund von Goto in eine Dauerschleife führen, wenn in einer Gruppe mal weniger als die gefordete Anzahl an Namen verfügbar ist. Auch das solltest du noch irgendwie abfangen, sonst bringt das Excel vermeintlich zum Absturz.
|