Zähler - Zufallsgenerator - F9 | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Da hab ich wohl nicht recht zu Ende gelesen, Andreas,
denn sonst hätte ich Dir den Tipp gegeben, wenn Du nicht ganz auf eine VBA-Routine wechseln willst, in das Makro zu verändern.
Nach jedem Calculate, würde jeweils der Block


IF Cells(1,1).Value="A" THEN
Cells(2, 1)=Cells(2, 1)+1
ELSE
IF Cells(1,1).Value="B" THEN
Cells(3, 1)=Cells(3, 1)+1
ELSE
IF Cells(1,1).Value="C" THEN
Cells(4, 1)=Cells(4, 1)+1

wobei Du eine Zelle mit Cells(Zeile, Spalte) ansprichst. Du kannst die Sache noch codetechnisch zusammenziehen, wenn Du mit dem ASCII-Zeichenwert des Buchstabens rechnest, doch dieses erspare ich mir hier, da ich, nach Deiner Levelangabe damit rechne, dass Dir so der Einstieg ins VBA-Programmieren leichter fällt, denn mit nichts anderem beschäfigen wir uns hier, indem wir diese Änderungen vornehmen.
Nun wäre es unnötig viel Arbeit, wollte man hinter jedem Calculate diesen Block einfügen. Für diese Aufgaben sind u.a. FOR-Schleifen die geeigneten Programmiermittel.
Ersetze also den gesammten Code durch:


Dim i As Integer
For i = 2 To 4
Cells(i, 1) = 0
Next i
For i = 1 To 10
Calculate
If Cells(1, 1) = "A" Then
Cells(2, 1) = Cells(2, 1) + 1
Else
If Cells(1, 1) = "B" Then
Cells(3, 1) = Cells(4, 1) + 1
Else
If Cells(1, 1) = "C" Then
Cells(4, 1) = Cells(4, 1) + 1
End If
End If
End If
Next i

Die erste For-Schleife setzt den Inhalt der Zählzellen auf Null vor dem neuen Durchgang. Die zweite Schleife für 10 Mal den Befehl Calculate aus und wertet jeweils den Inhalt der Zelle A1 (Cells(1,1)) aus.
Zu beachten ist, dass mit jedem Eintrag eines Wertes in einen der Zellen A2 bis A4, das Ereignis Calculate ernaut ausgelöst wird, wenn die entsprechnende Optionseinstellung zum EXCEL-Programm auf "Automatisch berechnen" eingestellt ist, was jedoch für die Auswertung (zählen jedes zweiten Versuchs: 1,3,5,...,19), keine Rolle spielen sollte (gleichmäßig verteile Zufallszahlen).
Hoffentlich klappt's
Uwe

Einleitend ein Hinweis auf einen Schrebfehler im Code des vorherigen Beitrages:
Unter der IF-Abfrage zu "B", wird auf der rechten Seite der Zuweisung in Cells auf die Zeile 4 verwiesen, wo es doch Zeile 3 handeln sollte:


...
Else
If Cells(1, 1) = "B" Then
Cells(3, 1) = Cells(3, 1) + 1
Else
...

Um jedoch nicht bei der Korrektur stehen zu bleiben, hier eine Umformulierung der Zuweisung, die dann eingesetzt werden kann, wenn immer in Zelle A1 entweder ein A, ein B oder ein C steht.


Sub Makro1()
Dim i As Integer
For i = 2 To 4
Cells(i, 1) = 0
Next i
For i = 1 To 10
Calculate
Cells(Asc(Cells(1, 1)) - 63, 1) = Cells(Asc(Cells(1, 1)) - 63, 1) + 1
Next i
End Sub

Hier wird der ASCII-Wert der Großbuchstaben dazu genutzt, um die Inkremierung in der zugehörigen Zeile vorzunehmen


A := 65, damit ergibt sich für den Zeilenzähler 65-63 = 2
B := 66, damit Zeile 66-63 = 3
C := 67, inkremiere in Zeile 67-63 = 4

Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

Zähler - Zufallsgenerator - F9

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread