Rotationen erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Volker,
in Frankfurt heißt ein Stadtteil so (0ffiziel Heddrnheim) hat was mit Fasching zu tun, jedenfalls bin ich dann oft dort, am Dienstag in der einen Turnhalle.
Und die Nachfrage ob Luschi deine Datei runtergeladen hat, naja, es gibt hier einige der Antworter, die ertmal völlig korrekt sagen, warum soll ich mir eine Datei runterladen, womöglich noch entzippen, nur weil der Fragesteller sein problem hier nicht so darstellen kann dass man es lösen kann. Erst wenn das nicht möglich ist wird ne Datei angefordert oder auch nicht :-)
Erst beim 2ten Lesen des Codes dämmerte es mir dass du mit deinen Rotationen womöglich das meinst was hier eher als Kombinationen bezeichnet wird.
Ich habe Code, der macht aus z.b. "abc", (es gehen auch mehr Buchstaben, solange bis halt 65536 zeilen voll sind.) :
abc, acb, bac, bca cba, cab ggfs usw wenn ich was vergessen habe *g.
Würde der dir weiter helfen?
Aus:


If zufallszahl = 1 Then
If konzept(1, i) < maxzahl Then konzept(1, i) = konzept(1, i) + 1 Else GoTo nochmal
End If
If zufallszahl = 2 Then
If konzept(2, i) < maxzahl Then konzept(2, i) = konzept(2, i) + 1 Else GoTo nochmal
End If
If zufallszahl = 3 Then
If konzept(3, i) < maxzahl Then konzept(3, i) = konzept(3, i) + 1 Else GoTo nochmal
End If
If zufallszahl = 4 Then
If konzept(4, i) < maxzahl Then konzept(4, i) = konzept(4, i) + 1 Else GoTo nochmal
End If
würde ich das machen:
select case zufallszahl
case 1 to 12
If konzept(zufallszahl, i) < maxzahl Then konzept(zufallszahl, i) = konzept(zufallszahl, i) + 1
Else
GoTo nochmal
end if
case else
msgbox "zu groß"
end select

Gruß
Reinhard

Hallo Volker,
leider komme ich nicht an den Code derzeit. Durch einen Kurzschluß im 12 Volt-Bereich des PCs gehen meine beiden Festplatten und der Drucker nicht mehr.
Ich hoffe aber, ich kann die daten der Festplatten noch retten, wird aber einge Zeit dauern, da ich erst noch in einem Hardware-Forum am Nachfragen bin, wie genau man das macht.
Bei einer Festplatte sind ja oben die Daten und unten die elektrische Ansteuerung. Jetzt muss ich nur wissen ob ich "unten" das neue Unterteil der exakt gleichen Festplatte brauche, des gleichen Herstellers oder beliebig, Hauptsache die Bauform passt usw.
Den VBA-Code für Kombinationen hatte ich aus dem Internet, also google mal in Groups nach:
kombination sub
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread