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:
1612		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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