Thema Datum  Von Nutzer Rating
Antwort
16.10.2012 13:57:59 Scarpall
NotSolved
Blau Was macht dieses Script ?
 17.10.2012 13:03:04 Dekor
*****
Solved
17.10.2012 13:33:30 Scarpall
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
17.10.2012 13:03:04		 Views:
718		 Rating:
     
Antwort:
 Nein
Thema:
Was macht dieses Script ?

Hallo Scarpall,

habe das Script mal kommentiert

   'Variable richtig auf Wahr setzen
   richtig = True
   'aus Tabellenblatt zelle "B3" auswählen/selktieren
   Range("B3").Select
   'Zellposition der aktiven Formularzelle merken
   ew = ActiveCell.FormulaR1C1
   'von 0 bis (zellposition - 3) Schleifendurchläufe
   For i = 0 To ew - 3
      'cells(Zeile,Spalte)
      'von (Schleifendurchläufe + 1) der Schleife 1 bis (zellposition - 2) Schleifendurchläufe 
      For j = i + 1 To ew - 2
         'Wert von Zellposition in m1 lesen
         m1 = Cells(i + 2, 6).Value
         'Wert von Zellposition in m2 lesen
         m2 = Cells(j + 2, 6).Value
         'Bedingung m1 ist gleich m2 prüfen
         If m1 = m2 Then 
            'Wenn Gleich richtig auf Falsch setzen
            richtig = False
         End If
     Next j
   Next i
   'aus Tabellenblatt zelle "A7" auswählen/selktieren  
   Range("A7").Select
   'Bedingung richtig prüfen
   If richtig Then
      'Wenn richtig gleich Wahr, dann in Zellposition Text schreiben
      ActiveCell.FormulaR1C1 = "Primitivzahl"
   Else
      'Wenn richtig gleich Falsch, dann in Zellposition Text schreiben
      ActiveCell.FormulaR1C1 = "keine Primitivzahl"
   End If

 

Gruß Detlev

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
16.10.2012 13:57:59 Scarpall
NotSolved
Blau Was macht dieses Script ?
 17.10.2012 13:03:04 Dekor
*****
Solved
17.10.2012 13:33:30 Scarpall
NotSolved