|
Hi,
im Laufe eines Schulprojektes erbitte ich mir hier legitime Hilfe. Selbstverstaendlich werde ich helfende Beitraege entsprechen als Quelle nennen.
Problem:
Ein Programm welches Zahlen von 1 bis "Obergrenze" in eine Tabelle schreibt. Dabei kann man die "Spaltenanzahl" auswaehlen. Zusätzlich werden die Primzahlen rot gefaerbt und mitgezaehlt.
Geloest bis jetzt:
Hochzaehlen, Primzahlen rot färben, Primzahlen hochzaehlen, Spaltenauswahl.
Mein Problem:
Bei Auswahl von Ausgabe in einer Spalte zaehlt er mir immer "Obergrenze -1".
Primzahlenabfrage laeuuft über True/False
meine Schleife:
Do
For spalte = 1 To spaltenanz
Cells(zeile, spalte).Value = zahl
If Primz(zahl) = True Then
"MACHE ROT UND ZAEHLE MIT"
Else
"LASSE SCHWARZ UND ZAEHLE NICHT MIT"
End If
If zahl < obergr Then
zahl = zahl + 1
Else
Exit For
End If
Next spalte
zeile = zeile + 1
Loop While zahl < obergr
Nachdem ich ca. 30 Versuche mit "Do Until", "For", "While - Wend" in allen Kombinationen ausprobiert habe, seh ich den Wald vor Baeumen nicht mehr! ;/
HILFE! :>
|