Thema Datum  Von Nutzer Rating
Antwort
23.11.2011 15:45:59 xy
NotSolved
Blau Teiler finden
 23.11.2011 15:58:04 Holger
*****
Solved
23.11.2011 16:01:09 Gast24883
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
23.11.2011 15:58:04		 Views:
932		 Rating:
     
Antwort:
 Nein
Thema:
Teiler finden

Hallo xy,

versuche

Sub ggT() 'Euklid
c = InputBox("erste Zahl, zweite Zahl")
If InStr(c, ",") = 0 Then Exit Sub
a = Val(Left(c, InStr(c, ",") - 1)): b = Val(Mid(c, InStr(c, ",") + 1))
If a < b Then c = a: a = b: b = c
Do Until b = 0
c = a Mod b
a = b
b = c
Loop
MsgBox a
End Sub

Gruß

Holger

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
23.11.2011 15:45:59 xy
NotSolved
Blau Teiler finden
 23.11.2011 15:58:04 Holger
*****
Solved
23.11.2011 16:01:09 Gast24883
NotSolved