Thema Datum  Von Nutzer Rating
Antwort
23.03.2019 17:27:59 Peter
NotSolved
23.03.2019 18:24:46 Flotter Feger
NotSolved
Rot Prozedur mit Schleife
 24.03.2019 09:18:09 Gast12345
NotSolved
24.03.2019 09:38:30 Gast29762
NotSolved

Ansicht des Beitrags:
Von:
Gast12345		 Datum:
24.03.2019 09:18:09		 Views:
430		 Rating:
     
Antwort:
  Ja
Thema:
Prozedur mit Schleife

Hallo Peter,
ich hasse Mathe, daher nachrechnen musste selbst

Sub Schleife()
Dim x As Long

   Cells(1, 4).FormulaR1C1 = "=R1C2"
   Cells(1, 5).FormulaR1C1 = "=R4C2*POWER(RC[-1],2)+R5C2*RC[-1]+R6C2"
   
   x = 2
   
   Do
      
      Cells(x, 4).FormulaR1C1 = "=R1C2+(ROW()-1)*R2C2"
      Cells(x, 5).FormulaR1C1 = Cells(1, 5).FormulaR1C1
      
      If Cells(x, 4).Value >= Cells(3, 2).Value Then Exit Do
      
      x = x + 1
      
   Loop

End Sub


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.03.2019 17:27:59 Peter
NotSolved
23.03.2019 18:24:46 Flotter Feger
NotSolved
Rot Prozedur mit Schleife
 24.03.2019 09:18:09 Gast12345
NotSolved
24.03.2019 09:38:30 Gast29762
NotSolved