Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife verwenden?

Forumthread: Schleife verwenden?

Schleife verwenden?
Jan
Hallo!
ich habe folgenden Code in einer Sub:
n_i_glied_1 = glied_1 * (1 / potenz_1) * vX ^ (potenz_1)
n_i_glied_2 = glied_2 * (1 / potenz_2) * vX ^ (potenz_2)
n_i_glied_3 = glied_3 * (1 / potenz_3) * vX ^ (potenz_3)
n_i_glied_4 = glied_4 * (1 / potenz_4) * vX ^ (potenz_4)
n_i_gesamt = n_i_glied_1 + n_i_glied_2 + n_i_glied_3 + n_i_glied_4
kann ich das mit einer for-schleife vereinfachen? ich habe schon probiert:
For i = 1 To 3
n_i_glied_& i = glied_&i * (1 / potenz_&i) * vX ^ (potenz_&i)
Next i
aber das geht irgendwie nicht. gibt es da eine möglichkeit?
Vielen Dank!
Gruß!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife verwenden?
02.10.2011 19:40:30
Josef

Hallo Jan,
so?

Sub jan()
  Dim glied(3) As Double, potenz(3) As Double, n_i_gesamt As Double
  Dim lngIndex As Long, vX As Long
  
  vX = 5
  
  glied(0) = 1
  glied(1) = 2
  glied(2) = 3
  glied(3) = 4
  
  potenz(0) = 1
  potenz(1) = 2
  potenz(2) = 3
  potenz(3) = 4
  
  For lngIndex = 0 To UBound(glied)
    n_i_gesamt = n_i_gesamt + glied(lngIndex) * (1 / potenz(lngIndex)) * vX ^ (potenz(lngIndex))
  Next
  
  MsgBox n_i_gesamt
  
End Sub



« Gruß Sepp »

Anzeige
AW: Schleife verwenden?
02.10.2011 19:52:08
Jan
Hallo!
das sieht gut aus, danke!
ich dachte das geht evtl. auch ohne diese arrays :-)
Danke sehr!
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige