Thema Datum  Von Nutzer Rating
Antwort
Rot Primzahlen
12.06.2009 18:40:06 Lisa
NotSolved

Ansicht des Beitrags:
Von:
Lisa
Datum:
12.06.2009 18:40:06
Views:
1059
Rating: Antwort:
  Ja
Thema:
Primzahlen
Sub Zahlenfelderzeugung()
l = 100
zeile = 1
spalte = 2
For i = 2 To l
Worksheets(1).Cells(zeile, spalte).Value = i
spalte = spalte + 1
If spalte = 11 Then
spalte = 1
zeile = zeile + 1
End If
Next
colorf = 3
zeile = 1
spalte = 2
Value = Worksheets(1).Cells(zeile, spalte).Value
For a = Value To Int(Sqr(l))
If Not Worksheets(1).Cells(zeile, spalte).Interior.ColorIndex Like "[1,colorf]" Then
Call Markieren(Value, colorf, l)
colorf = colorf + 1
End If
spalte = spalte + 1
If spalte = 11 Then
spalte = 1
zeile = zeile + 1
End If
Value = Worksheets(1).Cells(zeile, spalte).Value
Next
End Sub
Sub Markieren(Value, colorf, l)
spalte = CInt(Right(Value, 1))
If spalte = 0 Then spalte = 1
zeile = 1
For a = 2 To l
If Worksheets(1).Cells(zeile, spalte).Value = Empty Then Exit For
If Worksheets(1).Cells(zeile, spalte).Value Mod Value = 0 And Value <> Worksheets(1).Cells(zeile, spalte).Value Then
If Worksheets(1).Cells(zeile, spalte).Interior.ColorIndex = -4142 Then
Worksheets(1).Cells(zeile, spalte).Interior.ColorIndex = colorf
End If
End If
spalte = spalte + 1
If spalte = 11 Then
spalte = 1
zeile = zeile + 1
End If
Next
End Sub

könnt ihr mir den code so ändern, dass die farbe gelöscht wird und dafür nichts im kästchen steht?
http://upload.wikimedia.org/wikipedia/de…ratosthenes.gif <- also so wie in dem bild, nur dass die kästchen, die bunt werden value = "" bekommen und dass nur die primzahlen da stehen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Primzahlen
12.06.2009 18:40:06 Lisa
NotSolved